


• 



ANO 1 N? 01 

MAIO 1988 
CzS 210.00 




impressora 



Slots 

Conheca 
o potencial 
doMSX 



Si sterna 



Copiador 



Transfira 
seus arquivos 
de f ita 
para disco 
e vice-versa 




circuitos 
eletronicos 




'*>**' Raul M 




curso de 
basic 




Piatil-CarvaRio Jr. 



curso de 
musica 

reesna ■ aaammva* 




fe/ 



linguagem 
de maquina 

Z.MSX 




JS. 



Nossos livros podem ser enconlrados em livrarias e lojas de computa?3o. Se o seu Uvreiro ou 
fomecedor habitual nao os tiver dispontveis, entre em contalo conosco pelo telelone (011) 843-3202. 

Se voce 1 nao estd recebendo seu bolelim graluitamente pelo correio, ou tern algum amigo que 
gostaria de recebe-lo, nao deixe de enviar o cupom abaixo a EDITORA ALEPH - C.P. 20707 - CEP- 
01498 - SAO PAULO-SP. 



NOME: , 

END.: 

CEP: CIDADE: 

TEL: ( ) MICRO(S) QUE POSSUI: 



UF: 



Aguia Inform at lea Ltd a. 

Run Santa Clara, 96/415 

Copacabana 

Rio do Janeiro - RJ 

CEP 22041 
Tot. (021)257-4402 

OIRETOR RESPONSAVEL 
Goncalo R. F. Murtefra 

DIRETORIA TECNICA 
Antonio F. S. Shatters 
Carlos E. A. Morel ra 
Andre L. F. de Freltas 
J. L Fonseca 

REVISAO DE TEXTO 
Laura Maria Pinto 

CAPA 
Jose Aguiiera 

ASSINATURAS 
Eduardo Simplfcio 

ADMINfSTRACAO 
Jose Newton Barros 

CPU e uma publlcacao da Aguia In- 
formatica. Todos os duellos sao reserva- 
dos. Proibida a reproducao pardai ou total 
do conteudo desta revlsta. por quaiquer 
meio, sern autorizacSo expressa da editora. 

Os clrcuilos, dispositivos, componerv 
te5, etc., descritos na revista podem estar 
sob a prolog ao de patentes. Os clrcuitos 
publicades so poderfio ser conteccionados 
sem quaiquer llm lucrative 



CPU 



Atraves da Revista CPU, uma publicacao da Aguia Informatica, 
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etc. 
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ANTONIO F. S. SHALDERS 



U m dos maiores desafios para o usud- 
rio da linha MSX e", sem duvida alguma, a 
realizecao dc uma c6pia da SCREEN 2 
em uma impressora grafica. 

Existem dois mltodos de se fazer isso: 
o primeiro usa as tabclas da VRAM e o 
segundo testa diretamente os pontos na 
tela. 

O objetivo deste artigo € fazer uma 
comparacao em termos de velocidade e 
complexidade dos dois m£todos para um 
determinado tipo de cdpia. 

Todas as rotinas apresentadas neste 
artigo foram desenvolvidas e testadas em 
um micro HOTBIT e em uma impressora 
Monica da Elebra. 

A LPTOUT 

Esta 6 uma rotina importantissima da 
ROM do seu MSX, pois 6 ela quern envia 
para a impressora o codigo do caracter a 
ser impresso. Para podermos utilizd-la 
corretamente, 6 necessario o uso de uma 
pequena subrotina em linguagem de md- 
quina. E, mesmo que voce nao tenha ex- 
periencia no assunto, ird entende-la fa- 
cilmente. 

Existe um regis trador do Z-80 chama- 
do "acumulador" ou, simplesmente, re- 
gistrador "A". A LPTOUT cnviard para 
a impressora o codigo do caracter que es- 
tiver armazenado no acumulador, quando 
este for chamado atraves de um CALL, 
que 6 analogo a um GOTO do BASIC. 

Para armazenannos no acumulador um 
determinado valor, fazemos uso da ins- 
trucao LOAD, que significa "carregar". 
A sintaxe desta instrucao 6 LD A,XX. 
Feito isso, devemos chamar a rotina com 
um CALL relativo ao seu endereco de 
entrada, que, no caso da LPTOUT, 6 
00A5H. 



Em ultimo lugar, deverd haver o re- 
torno ao BASIC, o que 6 feito quando a 
instrucao RET (RETURN) for executada. 

O nosso programa, em linguagem de 
mdquina, Heard assim: 



E000 


3EXX LD A,XX 


E002 


CDA500 CALL00A5H 


E005 


C9 RET 



A primeira coluna € relativa aos ende- 
recos; a segunda as instrucoes em hexade- 
cimal; e a terceira, aos menem6nicos do 
Z-80. 

O endereco initial da rotina foi defini- 
do com EOOOH por ser uma posicao de 
memoria relativamente alta e nao reque- 
rer maiores cuidados na maior parte dos 
programas em BASIC. 

Para chamarmos a rotina atraves do 
BASIC, basta definirmos em uma chama- 
da USR seu endereco de entrada, por 
meio de um DEF USR. 

Feito isso, basta pokearmos em E001H 
o c6digo do caracter desejado e accssar- 
mos a rotina atraves de uma declaracao 
USR, como, por excmplo, um 
G = USR(0). 



A C6PIA 

Para entendermos como o primeiro 
m£todo funciona, € necessario fazermos 
um pequeno estudo da VRAM do MSX, 
quando em SCREEN 2. 

Existem duas tabelas fundamentals pa- 
ra o nosso caso. Estas sao a de padroes e a 
de cores. 

A tabela de padroes contem a imagem 
propriamente dita, inicia no endereco zero 
e termina em 6143. 



Os pixels do video estao organizados 
de acordo com o esquema da figura 1, 
dispostos horizontalmente em octetos na 
seguinte ordem: o primeiro € formado pe- 
los pixels rclativos as coordenadas 
(0,0).. .(1,7), at^ o oitavo, que reprcsenta a 
scqiiencia (7,0).. .(7,7). O nono octeto 6 
representado por (8,0)...(15,0) e assim su- 
cessivamente ate' o ultimo octeto, de nii- 
mcro 6144, que corresponde ao grupo 
(248,I91)...(255,191). 

Cada um desses octetos pode ter so- 
mente uma cor, que esui armazenada em 
uma tabela especifica, que inicia em 8192 
e, tambem, tern 6144 bytes de compri- 
mento. Se mudarmos a cor de um unico 
elemento de um octeto, a cor do octeto 
inteiro serd modificada. 

Alias, este 6 um dos poucos defeitos 
do MSX! 

O que esse primeiro me"todo faz € jus- 
tamente pequisar essas duas tabelas e, 
ap6s tratar corretamente os dados, haver 
a impressao. 

Voltando a examinar a figura 1, po- 
demos no tar que os bytes relativos a cada 
octeto estao dispostos na horizontal, e is- 
so nos gera um grave problema: quando a 
impressora entra em modo grdfico, ela € 
informada que lhe serd enviada uma ca- 
deia de n caracleres e estes deverao ser 
impressos no formato bindrio, que ird 
acionar uma dcterminada combinacao de 
oito agulhas. O problema 6 que essas agu- 
Ihas estao dispostas na vertical, sendo a 
agulha superior correspondente ao bit 
mais significative, e a inferior ao menos 
significalivo. 

A maneira mais fdcil de contomar o 
problema 6 fazendo uma impressao na 
vertical. Basta fazermos uma varredura 
adequada da tabela de padroes e imprimi- 
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la. Examine o programa da listagem 1. A 
varrcdura usada 6 justamentc para este li- 
po de impressao. A variavel j content o 
endereco de cada octeto a ser enviado pa- 
ra a impressora. 

O programa da listagem 2 usa esie al- 
goritmo que agora lhes serf explicado em 
detalhes. 

As duas primeiras linhas do programa 
montam a nossa rotina em linguagem de 
maquina na mcmoria, a partir do ervderego 
EOOOH, definindo o endereco de entrada 
da chamada USR. 

Na tcrccira linha, a cor de f undo da te- 
la 6 armazenada na variavel F% e a linha 
60030 faz com que a impressora passe a 
trabalhar em modo EPSON, ajustando a 
entrelinha para oito pontos. 

A linha 60050 faz com que a impres- 
sora entre em modo graTico, esperando 
sequencias de 192 caracteres. 

Os loops fomecem a seqiiencia correta 
de impressao dos octetos, sendo esses po- 
keados pelas variaveis J%, S 1% e RP%, 
respectivamente. 

b feita, cntao, a comparacao com a cor 
de fundo, que decide ou nao a impressao 
do octeto. 

A chamada da LPTOUT 6 feita na li- 
nha 60090 e o CHR$(1) na linha 60110 
faz o avanco da linha, assim que a 
seqiiencia grifica tenha sido completada. 
A ultima linha faz com que a impressora 
volte ao modo normal de operacao. 

Observe que o programa da listagem 2 
nao copia SPRITES, pois, para isso, seria 
necessaria a consulta das tabelas de for- 
macao e cores dos SPRITES. 

Ji pelo scgundo me'todo, as coisas fi- 
cam muito mais facets. Alem de qualquer 
coisa ser copiada, a rotina 6 muito mais 
simples e objetiva. Basta fazermos uma 
varredura de todos os pontos do video, 
atraves de dois loops e testar se a cor de 
fundo 6 igual a cor do ponto. Isso 6 feito 
com o auxflio de uma das fungoes menos 
utilizadas no BASIC - o POINT - e, nem 
por isso, 6 pouco eficiente. 

Cada ponto aceso na tela n.i disparar 
uma agulha e a entrelinha serd alterada 
para 1 ponto. O teste dos pontos 6 feito 
na linha 60079 da listagem 3. O restante 6 
identico ao programa anterior. 

O primeiro me'todo leva uma pequena 
vantagem quanto ao tempo de execucao, 
mas convent citar que isto s6 6 verdadeiro 
para uma impressao vertical e de di- 
mensoes 192x256. 

A impressao horizontal ji e" bem mais 
diffcil de se conseguir, pois o algoritmo de 
rotacao da tabcla de padroes € bein com- 
plexo, sendo a varredura radicalmente di- 
ferente para o primeiro me'todo. Chama- 
remos cada grupo de oito octetos conse- 
cutivos de "grupo local"'(Vide figura 2). 



LISTAGEM i 

10 FOR C=0 TO 31 

20 H-C*8 

30 FOR L- 23 TO 8 STEP -1 

40 K*256*L+H 

50 FOR X-7 TO STEP -1 

60 J=X+K: PRINT J 

70 NEXT X,L,C 

LISTAGEM 2 



COPIA VERTICAL NORMAL (MSX) 
ANTONIO FERNANDO S. SHALDERS - 



■0TO5 : READCO : POKE8. 



50000 

50001 

1988 

60000 DEFINTA-ZrFOREN- 

HE000+EN,CO:NEXT 

60010 DATA 62,0, 205, 165 ,0,201 :DEFUSR=&.H 

E000 

F = PEEK(&.HF3EA) 

POKE8.HF417 , 1 : LPRINTCHRS (27) ; "A" ; C 



60020 

60030 

HR$(8) 

60040 

60050 

(0) ; 

60060 

60070 



FORC=0TO31:H-C*8 
LPRINTCHRS (27) ;"¥.' 



;CHR$ (192) ; CHR$ 



FORL=23TO0STEP-l :K=256*L+H 
FORX=7TO0STEP-l : J=X+K : SL=VPEEK (J) 

:RP-VPEEK(J+8192) 

60080 IFRPMOD160FTHENPOKE&.HE001 , 255ELS 

EPOKES.HE001,SL 

60090 G=USR(0) 

60100 NEXTX,L 

60110 LPRINTCHRS (10) ; 

60120 NEXTC 

60130 LPRINTCHRS (27) ; "A" ; CHR$ (13) : POKE&. 

HF417,0 



50000 

50001 

1988 

60000 

HE000+ 

60010 

E000 

60020 

60030 

60040 

60050 

(0) ; 

60060 

60070 

60080 

60090 

60100 

60110 

60120 

HF417. 



LISTAGEM 3 

COPIA VERTICAL NORMAL (MSX) 
ANTONIO FERNANDO S. SHALDERS - 

DEFINTA-Z : FOREN=0TO5 : READCO : POKES- 
EN, CO: NEXT 
DATA 62,0, 205 ,165,0, 201 : DEFUSR=8.H 

F = PEEK (&.HF3EA) : POKE&.HF417 , 1 

LPRINTCHRS (27) ;"A";CHR$(1) 

FORXX=0TO255 

LPRINTCHRS (27) ; "K" ; CHR$ (192) ; CHR$ 

FORYY=191TO0STEP-l 

IFPOINT(XX,YY)=FTHEN60090 

POKES.HE001 , 1 :GOTO60100 

POKE&.HE001,0 

G=USR(0) 

NEXTYY: LPRINTCHRS (10) ; : NEXTXX 

LPRINTCHRS (27) ; "A" ;CHR$ (13) :POKE&. 
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TABELA DE PADROES DA SCREEN 2 






8 




248 


1 






2 




3 




4 




5 




6 




7 


15 


255 










6136 










6143 



FIGURA 1 



GRUPO LOCAL (FORMADO POR 8 OCTETOS CONSECUTIVOS) 

. — 8 OCTETOS VERTICAIS . 

MSB LSB 

27 26 25 24 23 22 2" 20 




















BYTE 8 x n 




5 
OCT1 

BYTE 8 x n + 1 -' 
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nos 






















































































































FIGURA 2 


(n = niimero natural 


entre c 767) 



O nosso objetivo 6 tornar os octctos 
rcais em octetos verticals, o que 6 conse- 
guido agregando-se-os bits de mcsmo pe- 
so de cada urn dos octetos reais: o primei- 
ro octeto vertical serd formado pela con- 
calenac,ao dos bits mais significativos dos 
octetos reais, e assim succssivanicnte. 

Se usarmos um mdtodo numenco para 
tal, a rotina se tornaraextremamente len- 
ta. Por isso, faco uso de um metodo alfa- 
numdrico, pois, alem de ser muito mais 
rapido, 6 compacto. 

O programa da listagem 4 faz exata- 
mente isso. A matriz alfanumdrica BS, de 
dimcnsoes 8x1, contcm as strings binarias 
relativas aos oito octetos, sendo trans- 
formada na variavel U$ em um octeto 
vertical. 

O resultado 6 armazenado no acumu- 
lador, sendo, postcriormente, impresso. 

O programa da listagem 5 f az o mcs- 
mo tipo de c6pia, usando o algoritmo do 
segundo mdtodo, sendo muito mais efi- 
ciente. Este programa nao passa do mcs- 
mo programa da listagem 3 com os loops 
altcrados. 

A AMPL1ACAO 

Para fazermos uma ampliagao, o pri- 
meiro metodo se torna extremamente ine- 
ficiente. 

No caso do primciro mdtodo, se dese- 
jarinos uma impressao multiplicada pt)r 
um falor de dois, teremos que ampliar um 
ponto dilatando-o na horizontal c na ver- 
tical. 

A cxpansao na horizontal 6 trivial de 
ser feita, pois basta imprimirmos duas ve- 
zes seguidas cada octeto. Mas para am- 
pliarmos na vertical, esbarramos em um 
problema: o c6digo do octeto expandido 
passard a ler 16 bits e a impressora s6 tern 
oito agulhas. A soluc,ao 6 quebrarmos esse 
c6digo cm dois menores de oito bits, en- 
viando primeiro para a impressora os oito 
bits mais significativos, e, em seguida, os 
oito mcnos. 

O raciocfho 6 o mesmo para am- 
plia^ocs de falor 3 em diante (so que o 
primeiro mdlodo s6 permite ampliaejoes 
mulliplas de 2). E como se a palavra 
"MSX" fosse transformada em 
'•MMSSXX", "MMMSSSXXX", e assim 
por diante. 

Os programas da lijtagem 6 e 7 fazem 
isso pelo primeiro mdtodo e os restantes 
pelo segundo. 

O segundo meUodo 6 muito mais ade- 
quado quando se trata de c6pias que re- 
querem algoritmos mais sofisticados e sao 
muito maLs rdpidos c facets de serem 
compilados, pois aid o compilador 
COMP32 6 capaz de faze-lo. 

Por ultimo, serao dadas tabelas para 
auxiliar a alteracao do programa bdsico 
do segundo me'todo para obtermos c6pias 
ampbadas por um fator n c como fazer 
reversao de impressao para cada tipo. 
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LISTAGEH 4 

50000 ' COPIfi HORIZONTAL NQRHRL (H3X) 

50001 ' RNTONIO FE3NRM00 S. SHflL3-8S - 

'933 

60000 DEFINTR-Z:F0REN=0T05:RFRQC0:: 5 _XE- 

HE000+EN,C0:NEXT 

60010 DRTR 62, 0, 205, 165,0, 201 :DE?iiSR=&H 

EOOO 

60020 F=PrFX(&HF3£rt) :?0K£ _HF41 7, 1 

60030 L?RINTCKR_(27);"R";CHR$(3> 

60040 F0RL=0T023 : K=256*L 

60050 LPRINTCHR$(27);'r';eHR$(0> ; uiR$r. 

>! 

60060 FQRC=0T0248STEPB:H=K+C 

60070 F0RX=OTO7:J=X+H 

60080 SL(X)-vVEEi((Ji:RP=VPEEK(J+81?2) 

60090 SL$(X)=R!GHT$;STRINQ$(8,"Q">+8!N_ 

(SL(X>),8) 

60100 IFRPH0;>16OFTHENSLS(X)=8INS(255) 

60110 NEXTX 

60120 F0RX=070?:=X+; 

60130 SCS=rtIOS(SuS(0),H r • ) +H I D$ ( SlK 1 ), 

fl.l )+MIDS(SLS(2) ,8,1 i+JiI0S(SLS(3),fl f 1 )+ 

HIQ$(SL$(4>,H,!/+«:;)$(3L$(5),S,i)+K;^; 

3L$(6),fi,l)+H!-_(SL$(7),R,l) 

60140 SC=VfiL("&S"+SC3) 

60150 P0KF_H£0_1,SC:_=USR(.5 

60160 NEXTX,C:u?RINTCriR$(10) ; ;:. ; .;,:. 

60170 .-R!NTCHRSi27i; !, R' , ;CHRS!"3):?U l ;Ei 

HF417.0 

_IoT3Gr.i1 j 

50000 ' CQP13 r.RIZGNTR. NGRHH. (H3X) 

50010 ' RNTONIO r£?S8H30 3. .-AlDERS - 

:933 

60000 D£FJMTfi-2:fD8£N=S' r 05:8Ea-C.:?0if-- 

HE000+EN,CG:NEXT 

6vv ! v J n i ri o_ , u , £v. , ; 0- , u , £. ! ■ - cr uaKHkr 

EOOO 

60020 F=?FEK(.hr3En;:?ai!E-r:F4l7,l 

60030 L?RiNTCHRS;27};"S";-h=;;:; 

60040 F3RYY=0T01?- 

60050 .?R;:v:0;-RJ(27};"i(";CriRS(0!;CHRS(l 

>i 

60060 FGRXX-0TG255 

60070 IFPfJiNT (XX , YY ) =FTHEN .0090 

60080 P0KE&HE001, 1:3373601 00 

60090 PGXEWE001,0 

60100 G--USR(O) 

60110 NEXTXX:L?RlNTCHR$flO).-HEXTYT 

60120 LPRINTCriRJ(27)j"fi : ' ; CHRS(13) :?UD, 

HF417.0 

USTflGEH 6 

50000 ' COPIfi HORIZONTAL RMPLIA0R (fi3X) 

50010 ' RNTONIO FERNANDO S. SHALOERS - 

1933 

60000 D_FINTfl-Z.*FGREH=OT05:REfiOCO:?QK_- 



HEC0O+EN,CO:NEXT 

60010 OATR 62,0,205,165,0,201 :DcF0SR=.H 

EOOO 

60020 F=?rEi({ _HF3ER):?0KE_HF4!?,! 

60030 LPRINTCHR_(.7);"R";CHRS(.) 

60040 R(')-l:R(2i=5 

60050 FGR_^T__3:K=25-*_:FQ3T=i TG2 

60060 .PR!NTCHRS(27);"i(";CHR.:v;;:.-RS(2 

»} 

60070 FDRC=0T0248STE?S=-=K*C 

60030 FQRX=0T07iJ*X*H 

60090 SL(X)=VPEEX(J):RP=VP£Z.<U+8192) 

60100 SL$(X)=RIGHT_(STRINGS(8,"0')+8INS 

(SL(X)),B) 

60110 IFRPJW016OFTHENSL$(X)=3INS(255> 

60120 MEXTX : F ORX=OT07 sfl=X+l 

60130 SCS=HID$(SL-(0»,R,l)+rtIDS<SLS(l), 

A,l)+MI0J(SLJ(2),A,i)+HIOS(3.-S(3),H,n + 

HIDS(SLS(4) l fl f 1)4HID$(SLS(5) f fl f l)+«IDS( 

SLS(6),R F l)+MID8(SLS(7i,R,l) 

60140 X-=MID$(SC$,R(T>,4):FGRR=1T04:CS= 

h I OS < XS , K , 1 ) : Y£=YS+CS+CS : N£XTfi 

60150 YS=RIGHTS(YS,8):Y=VRL("_B"+YSJ 

60160 POKE.HF.001,Y:G=USR(0):G=GSR(0) 

60170 NEXTX,C:LPRiNTCHRS(10) ; :NEXTT,. 

60180 LPRINTCHRS(27); ,, fi";CHRI(13):P0KE4 

KF417.0 

LISTRGEM 7 

50000 ' COPIfi VERTICfii.. BHPUflOfi (NSX) 
50010 ' RNTONIO FFRNRNDO 3. SHRLOERS - 
1988 

60000 OEFINT R-7:F0R EN=0 TO 5:READ CO: 
POKE .KE000+EN,C0:NEXT 
60010 ORTR 62,0,205,165,0,201 :DEFUSR=.R 
EOOO 

60020 F=PEEK(WF3Efl):P0.<E 4HF417.1 
60030 LPRINT CHR$(27);"fi";CHR$(8) 
60040 RU)=l:R(2)=5 
60050 FOR C=0 TO 31 :FOR T=l TO WKU 
60060 LPRINT CHRS(27);"IT;CHR$(I28);ChR 
S(l); 

60070 FGR L=23 TO STFP-1 :K=256*L+B 
60030 FOR X=7 TO STEP-1:J=X+X:Sl(T)=V 
?EEK(J):RP(T!=Vi ) EFX!J+8i92) 
60090 SUd(T}=RIGBTS(STRINGS(8,"0")+8IN. 
«SL(T)),6) 

60100 IF RP(7) *0G 16 F THEN SL$(T)= 
"llllllll" 

60110 X$(T)=HIDS(SlJ{T),R(T),4):F0R fl=l 
TO 4:CS(T)=HI0$(X$(T),fl,l) 
60120 YS(T)=YS(T)+C.(T)+CS(T):NEXT A 
60130 YS(T)=R!3H7_(YS(T)-8>:Y(T)=VflL("& 
8"+Y$(T)) 
60140 rOKE _HE001,Y(T):G=USR(0):8=.SR<0 

60150 NEXT X,.:LPR!NT CHRS(10);^EXT T, 
C 

60160 LPRINT _HR_<27);"fi";CHR$«13)-?G<£ 
4HF417.0 



uISThGEk ? 

5C0G0 ' COPlfi vESTICfiL RWLISOfi <H3X) 
50S1€ ' RNTQNIO "EXNRNOO S. ShfDERS - 

<m 

60000 DEf 1 HTfi-Zs f OR£*isOT£l5 : ScRDCD : PGKE& 

60010 Mr* 62,O,205/.65,O,2Ol;^rtlSR=S'ri 

E000 

oU'JtU r-r:r..\\4rir JcnJ >i t*-4r i f i H .' , . 
60030 . 3 RINTCKRS(?7!;' ;CHR3i? 
60040 r GRXX=0T0255 
60075 -?Ri8TCtiRS{27)-"K";CHaS(]28J;CHRS 

CO; 

60060 'GSYy=0TG0STE?-- 

60070 :FP0iNT(XX,YY)=FTHEN6009O 

60050 PGOHE001 ,3:33T060100 

i00?o poo-i: ,:< 

60:00 3=.J8a(0):6--USfi(0) 

60U9 NEXTYY;_ 3 RI*TCriR$rO) ; :NEXTXX 

60"?0 L?RiNTCnRS;27!; , H";C-^(]3):?DKES 

-"417.0 



LiSTfiGEil 8 

50000 ' CCPIh HORIZONTAL HfiPufiOfi (H3X) 
50010 ' 1KT0NI0 FERNhNQO S. SHftLOESS - 

i n ■-,--• 

I 700 

60000 OEFINTE-Z:FOREN=OT05:REROCO:?OKE* 

ric000+EN, CO : NEXT 

60010 3RTR 62,0,205,165,0,201 iWiMArt 

E000 

60020 F^EEK ( SHF3ER) : P03 ESHF41 7, 1 

60030 LP R I NTCHRS ( 27 ) ; " R' ; C - RS ( 2 ) 

60040 F0RYY=0T01?": 

60050 L?8iSTSH8S(27);"r}CiSS(0);CHS1 2 

>; 

60060 FGRXX=0 V C255 

60070 iPQIKT!XX ; YY)=FTHEN600?0 

600F0 5 C<F4n200i,3:GOT060100 

60090 3 0KE4hE00!,0 

60100 GniSiUO>sS=US8{0) 

601 '0 i«EXTXX:U?R !HTCrR$< ! 0> • SNEXTYY 

60 : 20 - 3 R]NTChRS(27);"R";ChSS(13)^'G l <Es 

HF41?,0 



-l'FRRCoFS UE TfiHRNHO 
PflRfl ft LlSTflGEH 3 

3X DE BtlHENTO 

60030 LFRINT CHRS(27);"fi":CH 

R£<3> 

60060 LPSINT CHR$(27):"K";CH 

RS(64i;CHR$(2> 

60080 POKE &RE001,7:G0TQ 601 

00 

60" 00 FOR S=l TO 3:G=USR(0): 

NEXT S 

4X OE AUilENTO 

60030 I.PRINT CHR$(27);"fi";CH 

RS(4) 

60050 LPRINT CHRS{2?):"<";CH 

RS(0);CnR$(3); 

60080 POKE sHE0Ql,'5:GGTG 60 

100 

60100 FOR S=1 TO 4:G=USRS0): 

NEXT S 

5X OE RGMENTO 

60030 LP8IKT CriSS(271;"ri";C- 

RS(5i 

60050 -PRINT CHRS{27; ; "<";Cri 

RS,?2: ; C-5S;3); 

60080 s 0aE 4hE001,3l;5GTG 60 

iOv 

60100 FQR 3=1 TO 5:3=1133(0)5 

NEXT 3 



6X DE fHJMOlTG 

60039 .-PRINT CHRS(27!;"F";C- 

RS(6) 

60050 LP3M CHRS(27};"C:Cn 

RS(128);CHSS(4!; 

60080 POKE &h£00"!,43!GOTfl 60 

100. 

60100 rSS 5=5 TO £18383(0): 

NEXT 3 

Tfflcii 2 

BLTF83PSEB 3F TnffiH 1 
PRRR fi uISTfiGE?: 5 

3X DE SWHENTO 

60030 LPSINT ChRS(27):"n 
"jCHRIO) 

60050 LPRINT CHR$(27);^ 
" ; CHRS(0; ; ChRS(3); 
60080 POKE 4riE001,7:G0TG 

60100 
60100 FGR 3=1 TO 3:G=USR 
(0):NEXT 3 

4X or romehto 

60030 lPRINT CHRI(27)|"fl 

";C-5S(4) 

60050 .PRINT Ci-:?S<2?); ,, K 

";CS3(0);CHRS(S); 

60080 PQKF 5h'E001,15:G0T 
G 60100 

60100 FOR S*1 TO 4:8=U3R 
(0):NEXT S 



5X 0! RUHSfTfl 

60030 LPRINT GnRS(27);"n 

";CH8S(5) 

60050 LPRINT CHRS(27!;"( 

"■CHR5(0}fCHRS(5)j 

60080 POKE 4HE001,3l:G0T 
60100 

60- 00 FGR 3=1 TO 5:G=ii38 
(Oi:NEXT S 

6X DE BUKENTfl 

60030 l 3 RINT CHRS(27);"R 

"•CHRS(6) 

60050 LPRINT CHRS(2?J;"K 

";CHRS(0}}CHRS(6); 

60080 POKE SKEOOi ,63=60T 
G 60100 

60100 ' : 0R 8=1 TO 6:3=USR 
(0):NEXT S 



m^TGDG DE iNVERSR 
(IMPRcSSBQ REVERSED 
LISTRGENS 3 E 5 

TROCAR: 

60080 POKE tHE901,H 

GOTO 60' 00 

60090 POKE 4HE00i,0 

?GR: 

60080 POKE &HE001 ,0s 

GOTO 60100 

60090 POKF &HEQQl r l 

083: BRSTR INVERTER- 
rtOS OS VALOR ES fl SE- 
RFJ RRHAZENflOOS NC 
RCLHUlADOR (POKES). 



CPU 



Os Virus 
Binarius 



Esta secao sc propoe a apresentar a 
vocds assuntos gerais, de uma maneira in- 
formal, sem a utilizacao dc linguagem de 
programijcao ou outros arlifi'cios que fa- 
gam voces, Icitores, correr para o inicro, 
apertar o botao de liga/desliga e perder o 
rcsto de suas vidas na frente do monitor 
de video procurando uma solucao para 
um problema ou digilando um programa. 

Hpa! Voce, ai, que ja ia ligar a CPU 
(apelido carinhoso que eu dei ao meu 
MSX)! Resista a tcntacao! Voile! 

Bom, niuito bom... 

O que eu proponho aqui 6 discutir 
qualquer coisa inleressante que, its ve/.es, 
nao damos muita importancia. Vejamos. 
Alguem jsS ouviu falar de um lal Pascal? 
Nao a linguagem, mas um certo scnhor 
Blaise Pascal. Qua! foi o primeiro compu- 
tador elelronico construfdo? Quern dcs- 
cobriu o Brasil? Decerlo nao foi um mi- 
crocomputador! 

Vamos tentar falar sobre algo relacio- 
nado a informdtica, mas nao com progra- 
mas, rolinas, etc... 

Nao sei se voces )6 ouviram falar do 
"VIRUS BINARIUS". Com o apareci- 
mento do primeiro computador, este ser 
foi acidentalmcnte criado. Nao seguiu os 
passos evolutivos de outras criaturas nem 
caiu do espaco num disco voador. Este 
pequeno ser, vejam voces, nao 6 nem 
mesmo constitufdo de materia, 6 total- 
mente invisfvel, mas contaminou o mundo 
todo. Ele pode estar, agora mesmo, incu- 
bado no seu micro. Ou pior: vocfi pode j<S 
estar contaminado por ele!!! 

Quantos de voc&i nao perdem horas 
sentados a frente do micro digitando, jo- 
gando, ou mesmo olhando para o micro 
DESLIGADO, como se este fosse um 
trofe"u? Eu mesmo nao pude resisoi a es- 
crever este artigo usando um processador 
de textos num MSX, vejam s6! 

Quanto 6 o fatorial de 5? Muitos vao 
responder: 

- Espera um pouco... 

Enquanto isso, as maos sc dirigem au- 
tomaticamente para um teclado e, ap6s 
alguns RETURNS, BACKSPACES e ou- 
tros mais, responderao: 



ANDRE L. F. DE FREITAS 



- Cento e vinte. 

Certo. Mas porquc usar o micro? 

A resposta & simples: nao eram voces, 
mas os VIRUS BINARIUS. Portanto, 
cuidado! Eles cstao em toda parte, em to- 
das as teclas, em todo o foton disparado 
de um monitor de vfdeo para dentro dos 
seus olhos. Destino final: o cdrcbro hu- 
mano. Ai nao tern mais solucao. A conta- 
minucfio 6 total e pode causar muitos pro- 
blemas com os amigos, com a "patroa", 
com os filhos e, ate", com o papagaio que, 
de uma hora para outra, s6 sabera falar 
RUN, RUN, RUN... 

A cura ainda nao foi encontrada, mas 
dizem que, apds uns dois anos longe do 
micro, um computador jogado fora, todas 
as listagens de programa incineradas e, 
quern sabe, uma lavagem cerebral, o VI- 
RUS BINARIUS volta a incubar e hiber- 
na por um bom tempo, s6 voltando a acao 
ao sentir a proxiniidade de um micro- 
computador. As vezes, nem isso funciona, 
como 6 o caso de um amigo meu que nem 
mais scquer consegue andar em linha re- 
ta... 

Isto tudo descrito acima 6 uma brinca- 
deira. O VIRUS BINARIUS nao existe 
(serd?!), mas o que eu pretendo com isto € 
exatamente falar de coisas diferentes, de 
maneira agradavel, como havia dito no 
infcio do artigo. Esta 6 uma revista com 
autores ainda nao conhecidos pelo publi- 
co, mas excelentes programadorcs e pos- 
suidores do nosso tao amado MSX. Pes- 
soas como voces, que se propuseram a 
criar uma coisa nova no nosso mercado. 
Uma revista dedicada a todos aqueles que 
amam a programagao e, principalmente, o 
MSX. Espcro que a id^ia agradc e que es- 
ta secao possa ter grande utilidade na vida 
de todos voces. 

Daqui em diante, procuraremos explo- 
rar os mais variados assuntos c curiosida- 
des. 

Existindo ou nao, o VIRUS BINA- 
RIUS ira" passear pelo seu computador, 
numa aventura emocionante, onde ele 
sera o vilao e voce o mocinho. O cendrio 
nao pixleria deixar dc ser outro: o seu 
computador c perifencos. 

Aguardc os pr6ximos numeros. 




^c- 
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Transf ira seus 
programas de 
disco para f ita 
e vice-versa 



MARCELO FONTOLAN 



Grande parte dos usudrios da linha 
MSX esta" passando seus arquivos de fita 
para disco, pois os discos ofcrecem maior 
rapidez e seguranca no armazenamento de 
dados. 

Quando o programa a ser gravado em 
disco for em Basic, nao teremos dificul- 
dades para efetuar a leitura da fita e 
gravd-lo no disco. 

Em se tratando de programas escritos 
em assembler, a operacao exige um pouco 
mais de cuidados e atencao, principalmen- 
te no que se refere aos enderecos. 

Visando facilitar este trabalho, publi- 
camos um programa cuja funcao € ler um 
programa da fita cassetc e gravd-k> no 
disco ou Vice- versa. 

Programas que estejam gravados em 
fita com protecao, ou seja, sem header, 
nao poderao ser transferidos para o disco 
com o auxflio deste programas. 

Pensando na necessidade que o usuario 
possa vir a ter, o programa tambem pos- 
sibilita trans ferencias de programas de 
disco para fita cassetc. 

O funcionamento do programa 6 bas- 
tante simples. 

FUNCIONAMENTO 

Ao completar o carregamento, 6 apre- 
sentado um menu com trSs opgoes, que 
permite sekcionar qual a operacao que 
deve ser efetuada. 



c6pia de fita para disco 



No menu, ap6s selecionar a opcao 1, 
prepare o gravador e pressione uma tecla. 
Serf, entao, lido o header do programa e 
serao apresentados na tela os enderecos e 
os comandos para leitura do programa da 
fita e gravacao no disco. 

Conhecidos os enderecos, retorne a fi- 
ta ate* initio e posicione o cursor no co- 
mando para leitura, pressionando RE- 
TURN. Serf iniciada a leitura. 

Terminada a leitura, posicione o cursor 
no comando para gravacao no disco, 
pressionando, novamente, RETURN. 

O programa Bdo das fita encontra-se 
gravado no disco. 

Alguns erros podem acontecer durante 
este processo, como erro de leitura (pro- 
blema com a fita, volume, etc.), erro de 
gravacSo (disco protegido, nao formata- 
do, etc.) e caso o programa nao seja do 
formato assembler. 

Todo programa em BASIC tern sua 
area na mem6ria a partir do cndereco 
&h8000, sendo que alguns programas em 
assembler tambe'm possuem o mesmo inf- 
cio. 

Neste caso, haverd a necessidade dc 
carregar o programa ap6s cada trans- 
ferencia. 



A necessidadac de um novo carrega- 
mento serf informado pelo pr6prio pro- 
grama, atraves das mensagens "TECLE 
F4" e "TECLE F5", para os casos em que 
o arquivo copiado se sobreponha ou nao, 
respectivamente, ao copiador. 



C6PIA DE DISCO PARA FITA 

Ao solicitar transferSncia de disco pa- 
ra fita, serf apresentado o diret6rio do 
disco e solicitado o nome do programa do 
qual se deseja efetuar a c6pia. 

Na tela, serao apresentados os coman- 
dos para leitura do programa do disco c 
gravacao em fita, jd com os enderecos. 

O cursor devcrf ser posicionado no 
comando para leitura e depois no coman- 
do para gravacao, prestando-se atencao 
para que o gravador esteja pronto para 
efetuar a gravacao. 

O PROGRAMA 

O programa estd dividido em subpro- 
gramas, a fim de facilitar a compreensao. 

A rotina em linguagem de maquina 
efetua a leitura de header do disco ou da 
fita c estd presente no programa atraves 
das linhas DATA. 

Este programa, devido a sua funcao, 
s6 opera em sistemas que possuam unida- 
de de disco. 
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CPU 



' Harcello Fontolan 

1 ' Itajai, 25 de Janeiro de 1988 

2 ' HYPER COPY 

3 ' Copiador disco-fita-Disco VI. 
10 ' Linpa tela 

20 CLS:KEY0FF:SCREEN0:C0L0R15,1,1 

30 ' Define tec las de funcao 

40 FOR F=l TO 3: KEY F,"": NEXT F 

50 FOR F=6 TO 10: KEY F,"": NEXT F 

60 KEY 4,"RUN"+CHRi(34)+"HYPER"+CHRS<34 

)+CHRS(13) 

70 KEY 5,"RUN"+CHRS(13) 

80 ' flpresentacao do Menu principal 

90 PRINT " 



": LOCATE 0,1: PRINT "! 



!": LO 



CflTE 0,2 : PRINT ". 

■ 

100 LOUIE! t l : PRINT" HYP 

ER COPY-— VI. "1 PRINT : PRINT : 

PRINT 

110 PRINT: PRINT TfiB(lO) "Oigite:" 
120 ' Opcoes do Menu 
130 PRINT: PRINT THB(5) "1 -) Copia de 

Disco p/ Fita" 
140 PRINT: PRINT THB<5) "2 -> Copia de 

Fita p/ Oisco" 

150 PRINT: PRINT TAB(5) "B -) Sair" 
160 fll=INKEYl: IF ft!*"" THEN 160 
170 ' flnaliza opcao desejada 
180 IF AI="8" OR AI="b" THEN END 
190 IF HS=T THEN 230 
200 IF HI="2" THEN 880 
210 GOTO 160 

220 ' Copia de Disco p/ Fita 
230 CLS 

240 PRINT " Copia de Disco p/ F 

ita " 

250 ' flpresentacao do diretorio 

260 PRINT: FILES 

270 ' Espera none do arquivo 

280 PRINT: PRINT : LINE INPUT "Oigite o 

none do arquivo: " ; NS 
290 ' Desvia prograna caso tenha erro 
300 ON ERROR GOTO 670 
310 ' Abre arquivo 
320 OPEN NS FOR INPUT ASM 
330 ' Obten dados sobre o arquivo 
340 F=ASC(1NPUTS(1,HD) 
350 IF F0254 THEN 790 
360 XS=INPUTI(6,h1> 
370 ' Fecha arquivo 
380 CLQSEM 

390 ' Calcula paraaetros 
400 CLS 
410PI=<ASC(r1I0S(XS,2,l)))*256+(ASC(r1ID 

i(XI,l,l))) 

420 PF=<ASC(NIDS(XS,4,l)))*256+<ASC(rlID 

$(XI,3,1))) 



430 PE=<ASC(MIDS(XI,6,l)))*256+(ASC(rlID 

1(XS,5,1))) 

440 TH=(PF-PI)*1 

450 ' Tra»sfor«a dados deciwis ex Hex. 

460 TMS=R I GHTS ( "0000"+HEXt ( TM) ,4) 

470 PII=HFXS(PI):PFi=HEXI(PF):PES=HEXI( 

PE) 

480 ' Apresenta dados sobre o arquivo 

490 PRINT "Arquivo :";W 

500 PRINT Tomato :" ; : IF F=254 THEN P 

RINF'ASSENBLER" 

510 PRINT "Endereco Inicial : 4H";PIS 

520 PRINT "Endereco Final : JH";PF1 

530 PRINT "Potto de Execucao : JH";PEf 

540 PRINT "Tananho : &H";Tr1S 

550 ' Apresenta conando de leitura 

560 PRINT: PRINT: PRINT "81oad";CHRS<34 

);NS;CHRS(34) 

570 ' Apresenta coiiando de gravacao 

580 PRINT: PRINT "8save";CHRS(34);"CAS: 

";LEFTS(NI,6);CHRS(34>;",IH";PIS;",SH"; 

PFS;" f 4H";PEI 

590 PRINT:PRINT 

600 ' Apresenta tec la a ser pressionada 

610 IF PK37000! THEN PRINT "Tecle 'F4' 

." ELSE PRINT "Tecle 'F5'." 

620 ' Coloca o cursor en posicao 

630 lOCflTE 0,7 

640 ' Ternina a execucao 

650 END 

660 ' Tratanento de erros 

670 CLOSER! 

680 CLS 

690 PRINT" Tratanento de Erros 



700 PRINT: PRINT 

710 IF ERR=62 THEN PRINT " Drive espe 
cificado nao existe !" 
720 IF ERR=56 THEN PRINT " None do ar 
quivo esta incorreto !" 
730 IF ERR=60 THEN PRINT " Disco esta 
con problem de fomato !" 
740 IF ERR^53 THEN PRINT " Arquivo na 
o existe !" 

750 PRINT: PRINT " Tecle algo para coit 
iiuar ..." 

760 AI=INKEYI: IF AS="" THEN 760 
770 RESUME 20 

780 ' TrataHento de arquivos nao BSAVE 
790 CLOSE*! 
800 CLS 
810 PRINT" Tratanento de Erros 



820 PRINT: PRINT 

830 PRINT " Rrquivo especificado nao 
se encoitra gravado con o BSAVE do rISX 
DISK BASIC!" 

840 PRINT: PRINT " Tecle algo para cont 
inuar ..." 
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850 RHNKEYI: IF AS=" THEN 850 

860 GOTO 20 

870 ' Copia de Fita p/ Disco 

880 RESTORE 890 

890 DATA CD, El ,00,08,21 ,00,C0,06,10,E5, 

C5.C0, E4,00,C1 ,E1 ,08,77,23, 10,F4,CD,E1 , 

00,D8,21,10,CO,06,06,E5,C5,CD,E4,00,C1, 

E1,08,77,23,10,F4,C9 

900 ' flmazeita dados en ASSEMBLER 

910 FOR P=0 TO 42 

920 RERD AS 

930 POKE <&HE050)+P,VfiL("&H"+RS) 

940 NEXT P 

950 PEFUSR=HHE050 

960 DEFFNPE<X)=PEEK<X)+256*PEEK(X+1 ) 

970 ' flpresentacao 

980 CLS 

990 PRINT " Copia de Fita p/ Di 

sco " 

1000 PRINT : PRINT " Prepare 

o Gravador " 

1010 PRINT : PRINT " E tecle algo q 

uando pronto ... " 

1020 flS=INKEYl: IF fli="" THEN 1020 

1030 ' Leitura de paraaetros 

1040 X=USR(0): MOTOR OFF 

1050 ' Calculo do none 

1060 FOR R^(iHCOOfl) TO (&HC00F) 

1070 PS=CHRS(PEEK(R)) 

1080 NI=NS+PS 

1090 NEXT R 

1100 ' Qbte* f ornate 

1110 F=PEEK(*HC000) 



1120 IF FO208 THEN 20 

1130 ' Calcula paraaetros 

1140 PI=FNPE(IHC010):'Poito inicial 

1150 PF=FNPE(iHC012)!'Posto final 

1160 PE=FNPE(IHC014):'Ponto execucao 

1170 TH=(PF-PI)+1 

1180 ' Transform dados decinais en HEX 

1 1 90 PIS=HEXS(P I ) :PFS=HEXI(PF) :PES=HEXI 

(PE):T«$=RIGHTK"0000"+HEXS(T«),4) 

1200 ' Rpresenta dados sobre o arquivo 

1210 CLS 

1220 PRINT "flrquivo : ";NS 

1230 PRINT "Fornato : ASSEMBLER" 

1240 PRINT "Endereco liicial : &H";PI$ 

1250 PRINT "Endereco Final : &H";PFS 

1260 PRINT "Ponto de Execucao : 4H";PES 

1270 PRINT "TawaBho : SH";TMi 

1280 ' Rpresenta conando de leitura 

1290 PRINT : PRINT : PRINT "Bload";CHRI 

(34);"CflS:";NS;CHRS(34) 

1300 ' Rpresenta conando de gravacao 

1310 PRINT : PRINT : PRINT "Bsave";CHRS 

<34);NS;CHRS(34);" F &H";PIS;",&H";PFS;", 

4H"jPES 

1320 PRINT:PRINT 

1330 ' Rpresenta tecla a ser pressionad 

a 

1340 IF PI (37000! THEN PRINT "Tecle 'F4 

'." ELSE PRINT "Tecle 75'." 

1350 ' Coloca cursor e* posicao 

1360 LOCATE 0,7 

1370 ' Teraina a execucao 

1380 ENO 



CHEGR DE SOLIDRO III 



SRflPR Sul* ftruantfa, Forum ** GO 
& mats- o mutxfo /nt^e-ir-o no £&cia<io 
<fo &&o m/cr-o* 

T&mos &it,& t&pjpte, f?$Xs tart -pc* 

^ve naofffita o &&u micro a con&- 
ctar q<jaf<iu&r cor-r-do &fe£r-onfco 

on oa&& cfe <fa<fos 



SISTEIV1A 



FONES (011)35-2750(VOZ) 
37-4107(MOO£M) 



com comuntcacao 
assfncrona* 
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CPU 



Gerando sons 
noMSX 



ANTONIO R S. SHALDERS 



GERANDO SONS NO MSX 

O seu MSX possui urn processador de 
audio modelo AY-3-8910, produzido pe- 
la General Instruments (EUA). Este inte- 
grado 6 do tipo LSI (Large Scale Integra- 
tion) e, embora nao seja o processador de 
audio mais sofisticado do mercado, 6 um 
dos mais facilmente encontraveis, alem de 
ser de facil implementacao e operacao. 

O BASIC possui uma instrucao que 
permite trabalharmos diretamente com os 
seus 14 registradores, o SOUND, cuja 
sintaxe 6: SOUND REG1STRADOR, 
VALOR. 

Alem do SOUND, existe a macro-lin- 
guagem PLAY, que nos permite fazer 
bons trabalhos, desde simples vinhetas ate 
acordes. 

O processador de audio, ou simples - 
mente PSG (Programmable Sound Gene- 
rator), possui 3 canais, com 8 oitavas ca- 
da, num total de 96 notas musicais dis- 
poniveis, alem dos geradorcs de ruido e 
envolt<5ria. 

O PSG tambem controla a leitura de 
dados do gravador e as portas multi-uso 
de oito bits, que sab as entradas para 
joystick. 

COMO GERAR UM TOM: 

Para gerarmos um torn de freqiiencia 
pre"-determinada em um canal de audio, 
devemos carregar nos registradores rela- 
tivos aos ajustes de freqiiencia fino e 
grosso do canal em questao, selccionar a 
envoltoria desejada, o volume de safda e a 
atuacao ou nao do misturador de canais. 

O maior misteno para muitos 6 como 
calcular os valores neccssarios a carga dos 



registradores de ajuste de freqiiencia, o 
que 6, na realidade, muito simples, pois 
basta aplicarmos a seguintc formula, a fim 
de obtermos o valor principal: 

N = INT (C / F / 32), 

onde C 6 o clock do seu computador, em 
hertz e F 6 a freqiiencia desejada. 

Os clocks do Hotbit e do Expert sao 
3579545 Hz e 3575611 Hz, respectiva- 
mente, ou seja: aproximadamente 3.58 
MHz. 

Os valores que devem ser atribuidos 
aos registradores de ajuste fino (AF) e 
grosso (AG) podem ser facilmente obti- 
dos pelas expressoes abaixo: 

AF = N MOD 256 
AG = N 256 

E bom notar que a resolucao das 
frequencies obtidas 6 inversamente pro- 
porcional a freqiiencia de maneira expo- 
nencial, pois, a medida que aumentamos a 
freqiiencia, a resolugao diminui. 

Na faixa dos 100 Hz, por exemplo, a 
resolucao chega a ser melhor que 1 Hz. i& 
na faixa dos 5 KHz, a resolucao ja" cai pa- 
ra cerca de 400 Hz, logo nao 6 muito 16- 
gico programarmos o PSG para gerar 
tons alternados de 5.000 Hz e 5.010 Hz, 
por exemplo, pois os dois tons gerados 
seriam identicos. 

A menor freqiiencia que pode ser gc- 
rada 6 de 4 Hz e a maxima vai alem de 60 
Hz, o que nao adianta muito, pois a faixa 
audfvel vai somente aid cerca de 16 KHz, 
se seu ouvido for muito bom! 

A tabela 1 exibe os registradores do 
PSG c suas respectivas funcoes: 



REG. 


FUNCAO 





A.F. canal A 


1 


A.G. canal A 


2 


A.F. canal B 


3 


A.G. canal B 


4 


A.F. canal C 


5 


A.G. canal C 


6 


Ajuste de freq. centr. do ruido 


7 


Controle do misturador 


8 


Volume do canal A 


9 


Volume do canal A 


10 


Volume do canal C 


11 


A.F. da freq. da envolt. 


12 


A.G. da freq. da envolt. 


13 


Tipo de envoi t6ria 



Tabela 1: 
AY-3-8910. 



Os registradores do 



MAIS SOBRE O PSG: 

O PSG possui um gerador de ruido 
branco que pode ser usado em conjunto 
ou nao com os t res canais anal6gicos. 

O chamado ruido branco 6 caracteri- 
zado por uma mistura aleat6ria de 
freqiiencias de amplitudes iguais ou nao. 
E cxatamente o chiado que aparece cm 
um aparelho de televisao quando sintoni- 
zamos um canal livre. Efeitos muitissimo 
interessantes podem ser conseguidos com 
o uso racional destc recurso do 
AY-3-8910. 

Um ponto forte do nosso processador 
de audio 6, sem diivida alguma, a capaci- 
dade de controle da envolt6ria. Mas o que 
6 envolt6ria? A cnvolt6ria dc um som (ou 
envelope, como dizem alguns) 6 a forma 
com que a intensidade ou amplitude varia 
em funcao do tempo 
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£ gramas as diferentes fonnas de en- 
voltorias que podemos distinguir o som de 
uma guitarra do de uma flauta, mesmo 
que ambos sejam exatamente da mesma 
freqiiencia. 

E claro que existem infinitos tipos de 
envolt6rias, sendo estas responsaveis pelo 
timbre e nuances dos sons. A envoltdria 
pode ser representada desde uma funcao 
constante ate" funcdes ultra complexas. 

O nosso PSG nao pode simular todos 
esses tipos de envoltonas, mas pode simu- 
lar qualquer combinacao de envolt6rias da 
famflia "dente de serra", que inclui a 
triangular e a constante, gerando efeitos 
que chegam a ser estonteantes. 

O som das ondas do mar, por exemplo, 
6 caracterizado por um ruido branco, cuja 
envolt6ria 6 da famflia senoidal (na reali- 
dade, 6 uma sobreposicao de varias sen6i- 
des aleatdrias), mas podemos obter 6timos 
resultados com a envoltdria triangular! 

J:i o som de uma explosao ou dc um 
sino tem como envoltdria uma funcao ex- 
ponential in versa, do tipo Y = 1 / X, mas 
podemos obter resultados muito pr6ximos 
disso com uma envolt6ria do tipo dente de 
serra, com a rampa negativa, o que carac- 
teriza um inicio abrupto, seguido de um 
decaimento suave do som. 

O registrador responsavcl por isso 6 o 
13 e podemos escolher oito tipos de en- 
volt6rias de famflia dente de serra e cons- 
tante, ou algumas combinagoes destes. 

A tabela 2 mostra os tipos de envoltd- 
rias com as quais podemos programar o 
PSG. 

As freqiiencias do gerador de ruido e 
do gerador de cnvolt6rias tambem devem 
ser delerminadas corretamente, a fim de 
obtermos resultados satisfatdrios. 

O me'todo usado para tal € semelhantc 
ao do ajustc dos canais analdgicos de saf- 
da. Para o ajuste da frcquencia dominante 
do rufdo branco, nao aconselho a usar 
f6rmulas de especie alguma, pois 6 melhor 
cscolhermos "de ouvido" o que mais nos 



agradar. Os valores possfveis para carre- 
garmos o registrador 6 variam de a 3 1 , 
sendo que, quanto maior este valor, mais 
grave 6 o torn dominante. 

Ja" para o ajuste de freqiiencia da en- 
voltdria, necessitamos de uma formula do 
mesmo tipo da que mostramos para o 
ajuste dos canais analdgicos de safda: 

N = C/(1100*F) 

Com esta fdrmula, podemos obter 
freqiiencias desde 0. 1 Hz! 

Os valores a serem armazenados nos 
registradores de ajuste fino e grosso sao 
achados da mesma maneira descrita ante- 
riormentc para os canais analdgicos. 

E importante notar que o gerador de 
envoltdrias esta" ativo somente quando o 
volume do canal estd no maximo. 

O CONTROLE MIS 1 1 R AIM ">R: 

O objetivo deste controle e" combinar, 
selecionar, ativar ou deativar os canais de 
som e os geradores de envolt6ria e ruido. 
Esta selecao 6 feita atraves do valor atri- 
buido ao registrador 7 do PSG. 

Cada bit deste valor tem uma funcao 
espceffica e, para a parte sonora, sao usa- 
dos apenas os bits de a 5. Os bits 6 e 
7 sao usados na verificacao dos cstados 
das portas multi-uso. 

Convem informar-lhes que os bits 
realtivos a este registro sao ativos em ze- 
ro, e suas I iincocs sao mostradas na tabela 

3. 

Se desejarmos habibtar os canais A e 

B com somm puro (sem rufdo) e o canal C 
com rufdo, devemos configurar o regis- 
trador 7 com o valor &B 0001 1 100, ou 
seja: SOUND 7,56. Um canal pode ser 
usado para gerar torn e rufdo sirrtultanea- 
mente, mas nao podemos ter mais de duas 
envolt6rias diferentes nos tres canais. No 
caso de termos duas, uma terd que ser, 
obritoriamente, uma funcao constante, ou 
seja: o volume do canal em questao de- 



verS ser menor qu el 6. 

Existem diversos editores musicais e 
sonoros para o MSX e alguns de altfssimo 
desempenho, como por exemplo, o 
SOUND (p/disco) e o SUPER SYNTH 
(na minha opiniao, o melhor). Se voce' nao 
possuir nenhum desses dois programas, 
nao se desespere, pois o programa da lis - 
tagem 1, se usado com bom senso, pode 
trazer resultados muito bons na elabo- 
ragao de sons complexos. 

Escrevam-nos enviando sugetoes ou 
em caso de duvidas, pois o objetivo desta 
re vista 6 auxiliar o usuario da linha MSX. 



REG. 13 



0, 1,2,3 e 9 

4,5,6,7 e 15 

8 

10 

11 

12 

13 

14 



ENVOLTORIA 



U^ 



LA. 



N^sNs 



I N/V*v 



L±E 



I /P V Wf 



L£ 



/NA/S/\ 



Tabela 2: O registrador 1 3 e as envolt6- 
rias. 



Bl'l 





1 

2 
3 
4 
5 



FUNCAO 
EM ZERO 



QUANDO 



Habi liia o canal A 
Habilita o canal B 
Habilita o canal C 
Habibta ruido no canal A 
Habilita rufdo no canal B 
Habilita rufdo no canal C 



Tabela 3: Funcoes dos bits a 5 do regis- 
trador 7 do PSG. 
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CPU 



"FREOUENCIA, 



J=INT<C/F8/32):NC= 



10 REM 

20 REH REVISTA CPU - HfllO 1988 

30 REH ANTONIO FERNANDO SHAIOERS 

40 REN 

50 REN GERANDO SONS NO NSX 

100 K E YOFF : SCREENO : COLOR 15,1: CLEAR 

110 PRINT "HOTBIT OU EXPERT (H/E)":PRIN 

T 

120 AS=INKEYS:IF AI="H" OR AS="h" THEN 

C=3579545S aSE IF AS="E" OR AS^"e" THE 

N C=3575611» ELSE 120 

125 PRINT"! FREOUENCIR (4 a 16000)","* 

VOLUME (0 a 16) (16 liga a envoltoria)" 

:PRINT 

130 PRINT "CANAL A:":INPUT "FREOUENCIfl, 

VOLUME ";FA,VA:PRINT 

140 IF FA=0 THEN FA=4 

150 PRINT "CANAL B:":INPUT "FREOUENCIA, 

VOLUME ";FB,VB:PRINT 

160 IF FB=0 THEN F8=4 

170 PRINT "CANAL C:": INPUT 

VOLUME ";FC,VC:PRINT 

180 IF FC=0 THEN FC=4 

190 NA=INT(C/FA/32):* 

INT(C/FC/32) 

200 FH=Nfl MOO 256:GA=NA \ 256 

210 FB=NB MOO 256:GB=NB \ 256 

220 FC=NC MOD 256:GC=NC \ 256 

230 INPUT "FREO. OOMINANTE 00 RUIOO (0- 

31) ";FR:PRINT 

240 INPUT "TIPO DE ENVOLTORIA ";TE:PRIN 

T 

250 INPUT "FREO. DA ENVOLTORIA (MIN=.l) 

";UE:PRINT:IF UE=OTHENUE=.l 
260 NE=C/ ( 1 1 00*UE ) : FE=NE MOD SftSME 
\ 256 
270 PRINT"TOM ATIVO EM fl (S/N) "; 

280 G0SU8690:IF A$="S" THEN Tfl-0 ELSE I 
F flS="N" THEN Tfl=l 

281 PRINT RJ.-PRINT 

290 PRINT"TOM ATIVO EM B (S/N) "■ 

300 G0SUB690.-IF A$="S" THEN T8=0 ELSE I 
F AS="N" THEN TB=2 

301 PRINT fl$:PRINT 

310 PRINT"TOM RTIVO EM C (S/N) "• 

320 G0SUB690:IF R$="S" THEN TC=0 ELSE I 
F flI="N" THEN TC=4 

321 PRINT RiPBINT 

330 PRINT"RUIDO ATIVO EM fl (S/N) "• 

340 G0SU8690:IF AS="S" THEN Rfi^O ELSE I 
F RS="N" THEN RH=8 

341 PRINT AS:PRINT 

350 PRINT"RUIDO ATIVO EM B (S/N) "; 

360 G0SU8690UF At="S" THEN RB=0 ELSE I 
F A$="N" THEN RB=16 

361 PRINT flf:PRINT 

370 PR1NT"RUIP0 ATIVO EM C (S/N) "; 
380 60SU8690:IF A$="S" THEN RC=0 ELSE I 
F AJ="N" THEN RC=32 



381 PRINT AS:PRINT 
390 H=0:»=Tfl+TB+TC+RH+RB+RC:CLS 
400 SOUNO 0,FA!PRINT"S0ON0 0,"-Ffl 
410 SOUND l,Gfl:PRINT"SOUND 1,";GA 
420 SOUNO 2,FB!PRINT"SOUN0 2,";FB 
430 SOUND 3,6B:PRINT"S0UND 3,";GB 
440 SOUNO 4,FC:PRINT"S0UND 4,"-FC 
450 SOUND 5,GC:PR INT-SOUND 5,";GC 
460 SOUND 6,FR:PRINT"S0UND 6,";FR 
470 SOUND 7,M:PRINT"S0UND 7,";M 
480 SOUNO 8,VA:PRINT"S0UN0 8,";VA 
490 SOUND 9,VB:PRINT"S0UND 9,";VB 
500 SOUND 10,VC:PRINT"S0UND 10,";VC 
510 SOUNO U,FE:PRINT"SOUND 11," ; FE 
520 SOUND 12,GE:PRINT"S0UN0 12,";GE 
530 SOUND 1 3, TE: PRINT"S0UND 13,";TE 
680 PRINTSTRINGS(13,95):END 

690 AS=INKEYUIF AiO"S"ANDAS()"N"ANDA$ 
<>"s"ANOA$()"n" THEN 690 

691 IF A!="S" OR AI="N" THEN RETURN 
700 IF fl$="s" THEN A$="S":RETURN 
710 IF R|=V THEN AS="N":RETURN 



£X:^_3 ^ATICO: 

Cow .■■-. te«os o ecilop de sons, 
faita soaente ente«;erj|ps como ds 5cni 

S30 CODOOStOS, 0>. Se.j3« t COMSifieCaQ 

atieeuafia ce fpeofiencias, voitiaes, puica e 
envoltoria, 3ii» u« osteplios o sow 
o'esejaco, cow op exejulo, o son do «ar; 

tste fle son 4 caractepi?ado oor 
alacue ? aecaiaentG suaves, Moouiaric: .» 
puftfo ce psedia fpeGuenaa fowsas 
cu?or3no,ci). f; envoltoria que ses 
projjopciaiia est? efeito ? a oe (iu«ero s 

: '5ra ativaptras e? r ,a envoltoria, 
e nece*sario Cue o voluMfi -co caaa. en 

CUPSvSO H5li;j3 3,/uStaQO S« '.6. FeitO fcSSG 

deveuos a.; us tar a freqtiencia gq r-ico 
cup no caso > ;?rca op 2?. Devenoi agora, 
a ,-u5tar os controls ga envoltot*j.a e sen 
respective periodo (14 e ,2] = 
seiecionar a pufdo ativo no canal "S", 

CANAL R : 3, '6 

~ D l :~ ■ ~i ft" ■ Jt « 

FSE3ti*KCI3 DO ffifDO : 25 
u 9 DE savOLTtfltlfi : !4 
F3E9ufiNCI3 dfi FNVOLTiRIfl : .2 
TON RTIVO NGS CSNrriS : NfiQ 
&IOl : 'l\}0 £« "3" : S 
RiifOC ; "*!V0 Eh "3" E "C" : K 

So jpoxifta srtic.0 eg se>ie 
vpf?*os como fazer u» oo« nfl*ep*j t- 
eieiuis. : -; a: : t ■ 
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MAXIMAS E MINIM AS 



Programacao estruturada 



J. L. FONSECA 



Esta e uma nova coluna, numa revista 
tambem nova e, como tal, vamos comegar 
dizendo quais sao os nossos objelivos. 

Nesla coluna serao discutidas dicas 
e tecnicas de programacao de interesse do 
principiantc c daqueles ja mais avangados. 
Serd uma coluna abcrta a cri'ticas e su- 
gestoes, que deverao serenviadas a revis- 
ta cm nome desta coluna. 

Hoje, comegaremos discutindo sobre 
um assunto que, para muitos, parecera' 
6bvio, mas, ainda assim, 6 importantc pa- 
ra o principiante e atd para alguns que ja" 
nao sao tao principiantcs. 

Vamos, pois, falar sobre a progra- 
macao estruturada. Esta tiicnica, tao em 
moda nos ultimos anos, nada mais 6 do 
que um me'todo de facilitar o trabalho do 
programador atraves da subdivisao de um 
programa em subprogramas mais simples, 
todos eles encadeados logicamente. 

Muita gentc pensa que s6, se pode 
programar estruturadamente em Pascal, 
C, Forth, ou outra linguagem criada, des- 
de a sua concepgao, para este tipo de pro- 
gramagao. No entanto, podemos progra- 
mar estruturadamente em qualquer lin- 
guagem, ate" em assembler. Um bloco po- 
de chamar, ou atd conter, outros blocos, 
mas, uma vez chamado um bloco, este de- 
ve fazer a sua tarefa e rctornar ocoman- 
do ao que o chamou. Esta descricao e* ba- 
sicamentc, a descricao de uma sub-rotina, 
s6 que, com a rcstrigao de que o ponto de 
entrada da mesma deve scr linico, e, em- 
bora possa ter diversas saidas, todas de- 
vem retornar ao mesmo ponto. 

Os tipos bdsicos de blocos sao os se- 
guintes: decisao, repetigao definida, repe- 
ugao indefinida ou condicional e bloco li- 
near. O primeiro 6 o equivalente em Basic 
a um bloco if... then... else, que executa 



uma de duas ou mais agoes, dependendo 
de uma condigao dada. O segundo 6 o 
equivalente a contrucao for... next, que 
repete um conjunto de instrucoes por um 
niimero de vezes determinada. O terceiro 
seria um bloco que repete um grupo de 
instrugoes at6 que uma condigao seja sa- 
tisfeita. Finalmente, o bloco linear 6 qual- 
quer grupo de intrucpes sem nenhum des- 
vio. As descricocs anteriores fazem 
mengao a instrucoes, mas, o mesmo i \&- 
lido, igualmente, para blocos completos, 
ou seja, um conjunto if... then... 6 consi- 
dcrado como uma unica instrugao, assim 
como uma instrugao gosub o 6. 

O bloco deve sempre ser fdcil de en- 
tender. Se um bloco csti ficando muito 
complicado 6 hora de o subdividir em blo- 
cos mais simples. Do mesmo modo, o blo- 
co deve ter apenas uma fungao e esta de- 
ve estar claramente definida. Estes blocos 
devem ser sempre precedidos de co- 
mentarios explicativos e, nos pontos mais 
complexos, ter comentirios espeefficos ao 
ponto em questao. Estes comentarios po- 
dem parecer supdrfluos, mas sao a princi- 
pal ajuda na hora de modificar ou depurar 
um bloco ou programa feito hi algum 
tempo. 

Uma outra vantagem de usar a pro- 
grama5ao estruturada 6 que os blocos sao, 
em geral, independents do programa 
como um todo e, assim, poderao ser usa- 
dos em outros programas, facililando o 
desenvolvimento. Podemos e devemos, 
pois, formar uma biblioteca com os blocos 
mais uteis para utilizacao posterior e, 
aqui, vemos as vantagens dos comentarios 
e de programar usando blocos auto-sufi- 
cientes. 

Vamos, agora, dar exemplos do dito 
acima, com alguns trechos em Basic, sen- 
do que tudo que for dito € valido para 



qualquer outra linguagem. 

BLOCO DE DECISAO 

10 LET A = 5: REM VARIAVEL QUE 

CONTEM O VALOR 

20 REM O BLOCO SEGUINTE VERI- 

FICA SE A QUANT1DADE EM A E 

SUPERIOR A UM VALOR DETER- 

MINADO 

40 IF A > LIMITE THEN PRINT 

"SUPERIOR" ELSE GOSUB 333 

50. 

60. 

333LETA = A+1 

334 PRINT "VALOR DE = "; A 

335 RETURN 

Como podemos ver no trecho acima, a 
linha 40 executa uma de duas agoes, de- 
pendendo de uma decisao, sendo que, 
ap6s, qualquer delas continua no mesmo 
ponto, ou seja, na linha 50. Se houvesse 
necessidade de exec u tar mais de uma ins- 
trugao em qualquer das opgdes, estas dc- 
veriam ser agrupadas dentro de uma 
sub-rotina e chamada dentro do bloco de 
decisao, como podemos ver na instrugao 
que segue o else. Verifique que todos os 
pon'.os importantes estao comentados no 
programa, o que nos permite entende-lo a 
qualquer altura. 

BLOCO DE REPETICAO DEFINI- 
DA 

05 LET A=l 

10 FOR 1=1 TO 10; REM CALCULA 

OS FATORIAIS ATE 10 

20LETA=A*1 

30 PRINT I,A : REM IMPRIME O 

NUMERO E SEU FATORIAL 

40 NEXT I 
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CPU 



No programa acima, o bloco entre as 
linhas 10 e 40 6 repetido um numero de- 
terminado de vezes. Esse numero pode 
ser uma constante ou ser passado numa 
varidvel, mas 6 sempre conhecido na en- 
Irada. 

No bloco de repeticao indefinida, ao 
contrano do caso anterior, o niimero de 
vezes a repetir 6 desconhecido e depende 
de que se cumpra uma condicao determi- 
nada. Essa condicao pode ser testada no 
inicio ou no fun do bloco, dependendo do 
efeito desejado. 

BLOCO DE REPETICAO INDEFI- 
NIDA 
TESTE DO INICIO 

10 IF A = 5 THEN GOTO 50 : REM 
TESTE INICIAL. SA1 DO BLOCO SE 
SATISFEITA A CONDICAO 
20 PRINT "APERTE UMA TECLA 
NUMERICA" 
30 INPUT A 
40 GOTO 10 

50 PRINT "VOCE BATEU O NUME- 
RO CERTO" 

BLOCO DE REPETICAO INDEFI- 
NIDA 
TESTE NO FINAL 

10 REM INICIO DO BLOCO 

20 PRINT "APERTE UMA TECLA 

NUMERICA" 

30 INPUT A 

40 IF A < > 5 THEN GOTO 10 : 

REM REPETE SE CONDICAO NAO 

VALIDA 

50 PRINT "VOCE BATEU A TECLA 

CERTA" 

Como se ve" nos exemplos acima, cada 
bloco 6 uma unidade logica independente 
e poderd ser usado em outros programas 
com poucas ou nenhumas modificat;6es. 
Os exemplos dados podem servir de mo- 
delo para voc6 criar os seus pr6prios blo- 
cos, modificando, apcnas, as condigoes e 
as instrucoes abrangidas pelos mesmos. 

Finalmente, par-> aqueles que estao 
achando que os comentarios s6 ocupam 
espacp e que as sub-rotinas tornam o 
programa lento, aconselhamos a fa/.er o 
programa do modo indicado e, ap6s estar 
pronto, remover os comentarios dc uma 
c6pia que serd usada para rodar. 

As sub-rotinas devem ser colocadas no 
infcio do programa, pois, quando o Basic 
procura um numero de linha, comeca pela 
primeira linha do programa e continua a 
pesquisa, uma a uma, ate 1 encontrd-la c, 
assim, se as sub-rotinas estiverem no inf- 
cio, serao encontradas mais rapidamente. 

Vamos, agora, experimentar o novo 
tipo de programacao ate" a pr6xima 
cdii, ;ao, onde teremos novas dicas de como 
aproveitar melhor as linguagens disponi- 
veis em nosso micro. 

Ate" a pr6xima. 



DICAS 



CAPS LOCK 

Muitos programas em Basic, ao solici- 
tarem do operador uma entrada, s<5 reco- 
nhecem o que foi digitado caso a tecla 
CAPS LOCK esteja prcssionada, ou vi- 
ce-versa. 

Para contornarmos este problema, c 
evitar uma linha de programa maior do 
que o necessario, podemos fazer uso de 
uma varidvel do sistema, a CPAST, que 
indica o estado da tecla CAPS LOCK. 

Caso CAPS LOCK esteja ativa, tere- 
mos em &HFCAB um valor maior que 
zero e menor que 255. Um valor igual a 
zero desativa a tecla. 

Exemplo: 

Poke&HFCAB.I (ativa) 

Poke &hFCAB,0 (desativa) 



MUSICA aleat6ria 

Como serd a musica no ano 3000? 

O programa abaixo poderd dar-Ihe 
uma dar-Ihe uma ide'ia. 

Verifique que hd um certo padrac. A 
geracao dos numeros aleat6rios que estao 
sob a musica € feita pelo micro segundo 
uma rigida regra matcmdtica. 

O programa Musica Aleat6ria 6 parte 
integral) te do livro 100 Dicas para MSX, 
da Editor Aleph. 



"00 ?.RY "SGhBOOOySGhSOOO'V'SOilSOOO" 

' ] o u-'t°+ST8S< m(m(-^i*Dm m+Z) 

i20 XS^S+"^"*STR5!!NT(SND(-:i«£/S60); 
130 YS=uS^"ft'"+STRS(INT(i?ND(-TIriE>*30-*-5C>: 
140 7S=iS+"N"+ST ! <S(INT(RND(-TIfiE)*16+80)) 
^50 ?LfiY M,YS,Z£ 
'.60 BOTO HO 
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Slots e 
expansoes 



ANDRE L. F. DE FREITAS 



Vote jd devc tcr sc indagado a respeilo 
do sistema de SLOTS de scu MSX: como 
funcionam os cartuchos de jogos, interfa- 
ces, ou qualqucr periferico coneclado ao 
scu MSX via cartuchos. Neste artigo, 
procurarei esclarecer as duvidas a respei- 
lo dos slots e paginas dc memdria que sao 
um pcqueno enigma na vida de usuarios 
de micros padrao MSX. 

O microprocessador Z80 6 um proces- 
sor dc 8 bits capaz de enderecar 65536 dc 
mem6ria (64 Kbytes). De que forma, 
entao, podemos ter 32 Kbytes de memd- 
ria ROM e mais 64 Kbytes de memdria 
RAM para uso no micro? Como podemos 
ter, no exterior, micros do padrao MSX 
com expansoes de memdria de 128 Kby- 
tes? O responsavel por isso 6 um circuito 
integrado chamado PPI, do ingles Peri- 
pheral Programable Interface, de identifi- 
cacao 8255. A descricao mais detalhada 
deste "chip", termo que usarei daqui em 
diantc, ficard para uma outra ocasiao, 
pois, no momento, sd nos interessa o tra- 
balho que cle rcaliza no micro. 

Este chip 6 uma interface paralela con- 
tendo 4 portas dc 8 bits cada. Uma destas 
portas, a qual chamaremos de porta A, 6 
responsavel pcla Idgica de selecao dc slots 
no MSX. Cada grupo de dois bits desta 
porta podc conter um numero entre e 3, 
qual vai indicar em que slot do MSX 
u pagina dc memdria corrcspondcntc vai 
estar aliva. Para entender melhor, observe 
a figura 1 . 

Como cxcmplo, se quisermos uma 
configuracao semelhante a da ligura 2, 
teremos o seguinte valor na porta A da 
PPI: &b(KXX)l()10. Dividindo este numero 
cm quatro blocos de 2 bits, teremos: 
&b00, &b00, &blO, &blO. Em decimal, 
teremos 0, 0, 2 c 2, que, na ordem da pri- 
mcira pagina al6 a quarta, significa que as 
duas primeiras estao ativas no slot e as 
duas superiores no slot 2. Esta € uma das 
configurators dc memdria mais usada no 



MSX e o seu micro pode, inclusive, tcr 
esta configuragad. 

Agora, vejamos, cada pagina de 
memdria possui 16 Kbytes. Se temos 4 
slots, cada um com capacidade de conter 
memdria cm 4 paginas. podemos ter 
4x4= 16 paginas de 16 Kbytes, perfazen- 
do um total de 256 Kbytes de memdria. 

Cada pagina tambern podc ter uma cx- 
pansao para mais 3 paginas iguais sobre- 
postas. Mas esta selecao nao 6 mais tab 
simples como a primeira. Portanto, o seu 
micro poderia ter mais 3 blocos de memd- 
ria de 256 Kbytes sobrepostos ao primei- 
ro, o que daria um total de 1 Mbyte de 
memdria. Otimo, nao € mesmo? 

Af, surge o problema de enderecamen- 
to de 64 Kbytes. Apesar de toda esta 
memdria, linearmente, sd podemos ter 64 
Kbytes ativos. 

Provavelmente, voce devc estar odian- 
do o Z80, mas nao fique chateado. Voce 
pode chavear paginas dc memdria mu- 
dando o valor da porta A da PPI, poden- 
do acessar todas as outras paginas quando 
quiser. Mas lembre-sc: nunca mais dc 64 
Kbytes simultaneamente. 

Quando o seu MSX € ligado, os slots 
sao pesquisados a procura de memdria 
RAM. Este teste € feito das mais alias po- 
sigdes dc memdria para baixo. A medida 
que o sistema encontra RAM, vai habili- 
tando esta memdria para uso. Se houver 
mais dc duas paginas contendo memdria 
RAM entre os endcreqos &h8(XX) c 
&hFFFF, clc habilitard as paginas mais 
prdximas ao slot 0. O scu MSX Ilea, 
entao, com as paginas zero e um no slot 
zero contendo todas as suas rotinas inter- 
nas de operacao c o interpretador BA- 
SIC, que estao em ROM, ncstas paginas, 
e a memdria RAM livre nas paginas 2 e 3 
em algum outro slot. A partir daf, ele exe- 
cuta uma inicializacao em variaveis de sis- 
tema e outras funcdes prioritarias para. 



depois, cntrar no interpretador BASIC. 

Para saber qual a configuracao de 
memdria do seu MSX, entre com o pe- 
qucno programa em BASIC da listagem e 
rode-o. Ele mostrara' quais as paginas ati- 
vas do scu micro, pois a configuragao po- 
dc variar conforme o fabricante. O pro- 
grama faz uma Icitura na porta &hA8 do 
micro, a qual endereca a porta A da PPI. 
O valor corrcspondcntc lido d, entao, di- 
vidido em grupos de 2 bits e oassado para 
decimal, informando em que slot estao as 
paginas de memdria do micro. 

Agora que jd sabemos como funciona 
a paginacao de memdria dos microempu- 
tadores MSX, podemos conhecer um 
pouco mais do sistema de expansoes. 

Qucm possui uma interface de disco, 
cartao dc 80 colunas, ou mesmo um car- 
tucho de jogos, jd verificou que o mesmo 
(5 concctado a uma das entradas de cartu- 
cho do micro. Cada cntrada destas 
content um barramento e uma Idgica de 
selecao correspondente a um dos slots do 
MSX. Quando um destes slots content um 
periferico ou um cartucho de jogo, a ini- 
cializacjao do sistema procura um certo 
conjunto de bytes na memdria correspon- 
dente a cstas entradas. Estes bytes contem 
informacdes dleis do sistema para que es- 
te reconheca o tipo de perifdrico conccta- 
do. Estas informagoes podem indicar se 
existc ROM no slot, o seu endereco de 
execucao, se existe expansao dc coman- 
dos a serem utilizados pela instrucao 
CALL do basic, endereco de rotinas para 
manipulacao de dispositivos, etc. 

Como conclusao desta parte do artigo, 
vemos que o sistema de slots do MSX 6 
algo de grande valor, pois, atraves dele, 
podemos manipular toda a memdria c 
acessar um grande numero de perifericos 
ja existentes para a linha. Futuramente, 
em uma outra oportunidade, iremos ex- 
plorar mais o acesso a periftSricos. Trata- 
remos, agora, somente da memdria de 
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nosso microcomputador. 

A seguir, vcremos urn programa que 
permitird a vocfis, usudrios, explorar toda 
a mem6ria "adormecida" do MSX. 

Vamos Mipor que tenuis um programa 
em linguagem de maquina que nao neces- 
sita do interpretador BASIC para ser 
executado. E o caso dos jogos em lingua- 
gem de maquina que voce", provavelmcn- 
te, possui. Vamos supor que o programa 
tern mais de 32 Kbytes de comprimento. 
Ora, se o micro s6 tern ativos 32 Kbytes 
de RAM, como poderemos carregar e 
executar cste programa? Simples. O pro- 
grama 6, gcralmente, dividido em blocos 
menores com 16 Kbytes cada. Ao se er o 
priineiro bloco com a instrucao BLCMD, 
este bloco 6 carregado em uma pdgina 
ativa do sistema e seu ponto de entrada 6 
uma pequena rotina que verifica se hd 
uma pdgina de RAM correspondente a 
pdgina do interpretador BASIC (pdgina 
1) em outro slot diferente do 0. Ao en- 
contrd-lo, muda o valor da porta A da 
PPI para se configurar possuindo a pdgina 
1 em RAM. A seguir, o programa e* rea- 
locado para esta pdgina e a porta A da 
PPI recebe, novamentc, a configuracao 
original do sistema, retornando o controle 
do micro ao interpretador BASIC. Pron- 
to. Temos 16 Kbytes de RAM contendo 
um programa em uma regiao da mem6ria 



que nao estava sendo utilizada; uma da- 
quelas paginas que, a principio, parecia 
nao ter utilidade. Podemos fazer isto com 
varios blocos de 16 Kbytes de programa, 
desde que tenhamos paginas de mem6ria 
suficientes para cont6-las. 

Outra limitatjao 6 a de nunca desati- 
varmos a pagina da ROM, pois Id estao 
contidas as rotinas basicas de operacao do 
MSX. Se ativarmos a pdgina em outro 
slot, o programa la - contido deve rcalizar 
algumas destas funcoes, sob pena de per- 
dermos o controle do micro. O mesmo 
6 valido para a pagina 3, pois ]& se encon- 
tram varidveis do sistema muito impor- 
tantes para o perfeito funcionamento do 
micro. Ao final do carregamento dos blo- 
cos, o ultimo deve contcr uma rotina que 
manipule as pdginas ocultas nos slots "va- 
zios" do micro, e teremos, entao, um belo 
jogo ou utilitario com mais de 32 Kbytes 
de comprimento. Para se rodar o progra- 
ma, basta configurar a PPI para ativar 
a pagina correspondente ao bloco que 
queremos executar e pular para um ende- 
reco naquele bloco. Ao final de execucao, 
podemos alterar a configuracao nova- 
mente e executar outro bloco. Pode ser 
um pouco estranho ficar pulando de um 
lugar para outro, mas o resultado, quase 
sempre, 6 um 6timo jogo ou utilitario, o 
qual jd fez com que muitos de n6s perdes- 



semos algumas horas utilizando-o com 
grande prazer. 

O programa da listagem 2 6 uma pe- 
quena rotina em linguagem de maquina 
que procura uma pdgina de RAM corres- 
pondente aos endere$os &h4000 ate" 
&h7fff nos slots livres do seu MSX e rea- 
loca para Id um programa em assembler 
qualquer. Como exemplo de programa a 
ser realocado, temos o fornecido na lista- 
gem 3. Este programa somente imprime 
uma mensagem no video sem a necessida- 
de do interpretador BASIC. Na listagem 
4 temos uma outra pequena rotina que s6 
chamard o programa de impressao na pd- 
gina em que se encontrar e retornard ao 
interpretador BASIC. 

Observando a listagem 2, veremos que 
a rotina come^a tentando escrever um va- 
lor na mem6ria e, depois, tenia ler de vol- 
ta o mesmo valor. Este teste tern de ser 
feito duas vezes com valores diferentes, 
pois este endereco poderia ser em ROM e 
conter o valor testado, o que nao nos le- 
varia a nenhuma conclusao. Se for encon- 
trada RAM, o programa passa a realocar 
o programa da listagem 3. Portanto, antes 
de rodar o programa da listagem 2, certi- 
fique-se de jd ter digitado, tambcm, o da 
listagem 3. Se o slot testado nao puder ser 
usado, o programa continuard a procurar 
at6 encontrar uma drea livre. 



20 REK SLOTS E CXPflNSOhS 
30 RFH HUTOR: ANDRE LU17 FREITftS 
40 CLS 

50 fl =■ INP < &Hf)8 ) 
60 H$ = BINS ( fl ) 
70 FOR 1=1 TO 8 STFP 2 
80 8$ = NIDI (flS,I,2) 
90 J = 3 - INT ( 1/2 ) 
100 PRINT "PflGINfl:"; J; " SLOT: "; 'JUL 
( "W + BS ) 
110 NEXT I 



110 REN 
120 REM 
130 REM 
140 REN 
150 REN 
160 REN 
170 REN 
180 REN 
190 REN 
200 REN 
210 REN 



SLOTS F FXPANS6ES oc: 
flUTOR: ANDRE FREIT°S 

ESTE PR0GRANA BASIC C0L0CA NA 

NEN0RIA AS ROTINAS EN LINGUAGEN 

DE NA0UINA CONTIDAS NAS LINHAS 

DATA. 

ESTAS ROTINAS C0RRFSP0NDEN 

AS LISTAGENS 2,3,4 DESTE flRTIGO 



220 REN PRINEIRA ROTINA - LISTAGEN 2 
230 DATA DB,A8,32,F0,E0,2I, 00,40 
240 DATA 06 f 03,DB,A8,C6,04,32,n 
250 DATA E0,D3,A8,3E,AA,77,56,2F 
260 DATA 77,5E,7A,83,FE,FF,28,04 
270 DATA 10 r E8,18,OB,21,00,El,ll 
280 DATA 00,40,01, 30,00,ED,B0,3A 
290 0ATA F0,E0,03,A8,C9 
300 REN SEGUNDA ROTINA - LISTAGEN 3 
310 DATA 21,0F,40,7E,FE,0O,28,06 

320 DATA CD, 82,00,23, 18,F5,C9,0C 
330 DATA 53,4C,4F,54,53,20,45,20 

340 DATA 45,58,50,41, 4e,53,4f, 45 
350 DATA 53,07,00 

360 REN TFRCEIRA ROTINA - LISTAGEN 4 

370 0ATA3A,F1,E0,D3,A8,CD,00,40 

380 DATA 3A,F0,E0,D3,A8,C9 

390 REN 

400 FOR I=&HE000 TO &HE034 

410 READ AI:A=VAL("&H"+AS):P0KE LA 

420 NEXT I 

430 FOR I=&HE100 TO &HE122 

440 READ AS:A=vALC&H"+A$):P0KE f,A 

450 NEXT 1 

460 FOR MHE200 TO &HE20D 

470 REflO AS:A=VAL("4H"+AS):P0KE I, A 

480 NEXT I 

490 CLS:PRINT"R0TINAS CARREGADAS NA NEN 

0RIA" 
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Voce deverd utilizar urn monitor as- 
sembler para entrar os programas na 
mem6ria, mas, caso nao possua um, nao 
se desespere. Na listagem 5 eu forneco 
um programa em BASIC que colocara" na 
mem6ria, automaticamente, os programas 
2, 3 e 4 que estao em instrucoes DATA 
nas linhas iniciais do programa. 

Ap6s os tres programas estarem na 
mem6ria, estamos prontos para rodd-los. 
Digite, no BASIC, as linhas abaixo: 

DEF USR = &HEOOO 
A = USR(O) 



Pronto. 

Agora, o programa de impressao jd 
estd em uma pdgina de memo™ livre do 
seu MSX. Se voce jd digitou a listagem 4, 
estamos prontos para testar a paginasao 
de mem6ria do MSX. Repare que o pro- 
grama da listagem 4 16 um byte do ende- 
reco &hE100 que contain a configuracao 
da porta A da PPI para a pagina 1 ser em 
mem6ria RAM. Esta configuracao foi es- 
crita ali pelo programa 2 para sabermos, 
exatamente, onde 6 esta RAM e nao cau- 
sarmos uma perda de controle do sistema. 
Digite, agora, no Basic, as seguintes li- 
nhas abaixo: 



DEF USR = &HE200 
A = USR 1(0) 

At estd a sua mensagem, sem que o in- 
terpretador BASIC estivesse ativo duran- 
te sua execucao. O programa da listagem 
4 alterou a configuracao das pdginas de 
mcmdha, desativando o interpretador 
BASIC, chamou a rotina de impressao a 
qual usa uma chamada a uma rotina do 
BIOS para imprimir, escrevendo direto 
atraves do processador de video e restau- 
rou o sistema para que tivessemos, nova- 
mente, o acesso ao BASIC. 

Gostaram? 

Espero que voces nao Fiquem s6 por 
af. As listagcns sao apenas pequenos 
exemplos do que se pode fazer com a pa- 
ginacao de mem6ria do MSX. Deixo, 
aqui, a sugestao para que voces alterem a 
vontade estes programas e se utilizem 
destas rotinas quando precisarem de 
"mais memona". Criem a vontade, pois, 
como voces podem ver, o MSX 6 um mi- 
cro novo no mundo e mais novo ainda 
aqui no Brasil, havendo, ainda, muita coi- 
sa a ser explorada. 

Estarei a disposicao de voces para su- 
gestoes e opinioes, bastando entrar em 
contato com a dirctoria teenies da revista. 

Espero que todos tenham gostado des- 
te primeiro artigo e, como jd disse ante- 
riormente, nao ficaremos por aqui. Ainda 
ha" muito a se explorar. Aguardem. 



i SLOTS E EXPANSoEE 




; A'JTQR: 


ANDRe FREITAS 


; LISTAGEM 2 








ORG IE0I0H 


DB A8 




IN A, ( 0A8H) 


32 Fl El 




LD ( 0E0F0H),A 


21 00 41 




LD KL,4II0H 


06 13 




LD B,3 


03 Aa 


Loop: 


IN A,( 0A8H) 


U 14 




ADD A, 4 


32 Fl El 




LD ( 0E0FiH),A 


D3 AS 




OUT ( 0A8ri),A 


3E AA 




LD A.IAAH 


77 




LD ( HL),A 


56 




LD D,( HL) 


2F 




CPL 


77 




LD ( HL),A 


5E 




LD £,( HL) 


7A 




LD A,D 


83 




ADD A,E 


FEFF 




CP «FFH 



28 84 oR Z.Achou 

DJNZ Loop 
JR Fil 

Achou: LD HL.IEillH 
LD DE.4I0IH 
LD BCII3IH 
LOIR 

3A Fl El Fit: LD A,( 0E8F8H) 



10 E8 


18 IB 


21 01 Ei 


11 01 40 


11 31 II 


ED 80 



D3 A8 
C9 



OUT ( 0A8H),A 
RET 



Ao final aeste pragraaa tereaos-' 



Li configuracao da porta A aa PPI 

Salva no endereco SHEIF0 

Endereco na pagina 1 

No. de SLOTS a testar 

Le PPI 

Incresenta bits correspondentes a 

pagina 1 na porta A da PPI 

Salva no endereco SHEIFI 

Altera PPI 

Valor a ser escrito na aeaoria 

equivale a &B1I101I1I 

Escreve e 

le da aeaoria 

Coaipieaenta este valor. Se a priaeira 

leitura for correta, o coapleaento 

sera SBIlllllli 

Escreve e 

le da aeaoria 

Soma os flois valores lidos da aeaoria 
Se na RAH no SLOT, o valor da soaa 
e SHFF e o teste esta correto, 
entao salta para a rotina de 
transferee ia de blocos, senao 
Decreaenta B e volta ao loop de teste 
Nao achando RAH ao fia do loop, sai 

Ini'cio do bloco a transfers 
Endereco de destino 
Tawanho do oloco 
Transfere 

Carrega A coa a configuracao 
original da PPI 

Restaura valor na porta A da PPI 

R 
ac 

is 



i No Endereco SHEIFI - A configuracao original da porta A da PPI 
; Ho Endereco SHEIFI - A configuracao para a qual a pagina i 
i esta ea RAH 
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SLOTS E EXPANSoES 
AJTO: ANDRe FREITAS 



•F 4C 



7[ 
-£ 

28 

18 
C9 



CHPUT: 



Loo?: 



96 

A2 00 



ORG eEI00H 

Eft) 0A2H j Rotina de inpressao do 8I0S 

LD Hl.WFH i Carrega hi com ensereco da 

, aiensagem ( end. apos realocar ) 

LD Aj ( HL) i Carrega A com valor ee caracter 

CP ; Compara con zerc 

JR Z.Fim ; Se for zero er.cerra prosraaa 

CALL CHPUT i Ghana rot ina de tapressac cs 3I£i 

INC HL ; Avanca csracte.' na msnsases 
»3 .oop 



VEi 



v'Oita para c .5*3 Z£ sprss&sc 






45 
4t 



lensg: 0EF3 0Cri 
4C 4^ 54 DEFH 'SLOTS I 3MXKES' 

26 45 20 
58 50 41 

;2 4- 45 

DEF5 7 
0EF3 e 



SLOTS E EXPANSoES 
flUTOR: fiNDRit FREITfiS 
LJSTflGFM 4 

ORG 0E200H 



3fi F1 EO LD fl,( 0E0F1H) ; Carrega actiNulador com a 

; configuracao de PPI saiva 
; pelo program da listagew 2 

03 fi'8 OUT ( 0fi8H),fi ; nitera configuracao da P?I 

CD 00 40 CfiLL 4000H ; Ghana program Oe i«pressao 

; ns pagina ] 

3fi F0 EO LD ft, ( OfcOFOH); Carrega acuMulador com a 

; configuracao norMai da PPI 



salva peioprooraMa oa 



03 fl8 
C9 



; listagen 2 
OUT { )R8H),3 ; ftitera cont iguracao oa PPI 
SET 



SLOTS E PAGINAS DA MEMORIA 



VALORES DOS SLOTS CORRESPONDENTES 
AS PAGINAS DE MEMORIA 



PORTA "A" 



PAGINA 3 
PAGINA 2 
PAGINA 1 
PAGINA 
FIGURA 1 



SLOTO 




SLOT1 




SLOT 2 




SLOT 3 




DA PPI 



O 




O 
1 




i 










BIT 7 
BIT 6 
BIT 5 " 
BIT 4 


O 




1 


i 












1 


1 






BIT 3 
BIT 2 








1 


1 






BIT1 
BITO 



2 Bits correspondentcs 

a pagina 3 

2 Bits correspondentcs 

a pagina 2 

2 Bits correspondentes 

a pagina 1 

2 Bits correspondentes 

a pagina O 



EXEMPLO DE CONFIGURACAO DE MLMOrIA 



PAGINA 3 
PAGINA 2 
PAGINA 1 
PAGINA O 
FIGURA 2 



SLOTO 




SLOT1 




SLOT 2 




SLOT 3 


PORTA "A' 
DA PPI 










V//////// 








I 
O 










1 



Wi 












Wm 










o 



Pag. 3 no Slot 2 
Pag. 2 no Slot 2 
Pagina 1 no Slot O 
Pig. O no Slot O 
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MATEMAGICA 



J. L FONSECA 



Automate celular 



Esla sera 1 uma coluna onde serao apre- 
sentados programas ou fragmentos de 
programas ligados a area da matemitica 
recreativa, uma area por demais fascinan- 
te, apesar de pouco difundida entre n6s. 

Os nossos computadores podem nab 
ser tab rapidos nem ter uma resolucab tab 
alta quanto os usados em pesquisas nas 
universidades, mas sab o suficiente para 
explorar alguns mundos e problemas bem 
interessantes. Ao longo dos meses, vere- 
mos artigos sobre gr£ficos de funcoes, 
criptografia, teoria dos numeros, 16gica, 
autdmatos, etc. 

Hoje, apresentaremos um pequeno mas 
interessante programa sobre um organis- 
mo matemiStico conhecido como aut6mato 
celular. Este organismo vive num univer- 
so simulado no computador, tendo regras 
evolutivas pr6prias, definidas pek) pro- 
grama. Esta classe de programas abrange 
um vasto campo de possibilidades, desde 
o programa aqui apresentado, com um 



universo unidimensional com celulas em 
156 possfveis estados evolutivos, ate" uni- 
versos multidimensionais, onde vivem ce- 
lulas com centenas de estados. 

Um dos mais famosos deste grupo de 
programas € o LIFE, com um universo 
bidimensional e celulas de dois estados, o 
qual serd apresentado em outra ocasiao. 

O programa da listagem 1 cria um uni- 
verso unidimensional, representado pelo 
vetor A%( ), o qual simula um cfrculo, ou 
seja, a sua ultima celula 6 adjacente a pri- 
meira. Cada uma das variaveis do vetor 
representa uma celula do universo e o seu 
valor representa o estado evolutivo da ce- 
lula. 

O programa representa as geracoes 
sucessivas em linhas consecutivas da tela 
no modo 3, com as cores dos pontos re- 
presentando os estados evolutivos e, deste 
modo, podemos ver 48 geracoes de 64 ce- 
lulas simultaneamente. 

Para usar o programa, respondas as 



perguntas como indicado. O padrab uiicial 
deve ser fomecido como pedido, sendo 
que as letras de A aw? P correspondem aos 
numeros de a 15. Em seguida, responda, 
com um conjunto de Os e Is, as perguntas 
sobre as influencias. Esta ultima pergunta 
€ que governa como as celulas vizinhas 
influenciam a celual sendo testada no 
momento (0 - sem influencia, 1 influen- 
cia). Neste programa, sao consideradas 
celulas vizinhas as duas celulas imediata- 
mente adjacentes a celula sob teste e as 
duas imediatamente seguintes a estas ul- 
timas. 

O programa 6 simples e facil de ser 
entendido e modifkado para condicoes 
diferentes das dadas por mim. Sinta-se, 
pois, a vontade para modifici-lo e diver- 
tir-se com os belos padroes gerados por 
ele. 

Escreva-nos dando as suas sugestoes e 
criticas, pois as mesmas serab bem vindas. 
E ad! 1 pr6xima edicao, onde veremos 
novas curiosidades. 



140 DIM BZ(3): ' INFLUENCIAS 

150 DIM UK 1,63): ' UNIVERSO 

140 RS = ••": BS = "": XZ = 

170 KEY OFF: CLS 

180 IF XZ = THEN GOTO 210 

1V0 PRINT flj: INPUT "Deseja audar o padrao ";BS 

200 IF BS="N" OR BS = V THEN GOTO 250 

210 XZ = 1 

220 CIS: PRINT SPC(7);"Entre con o padr 

ao micial": PRINT " ( ate 64 caracte 

res entre R e P )": PRINT 

230 LINE INPUT RS 

240 IF RS = "" THEN GOTO 220 

250 FOR IZ = TO 63 

260 RZ(0,IZ) = 

270 NEXT IZ 

280 IF LEN (RS)>64 THEN flS=riIDS(flS,l I 63 ) 

290 FOR IZ = 1 TO LEN(RS) - I 

300 RZ(0 f IZ)=flSC(RIGHTS(RS,IZ+l)) - 65 

310 NEXT IZ 

320 PRINT: PRINT: PRINT "Escolha a mfl 

uencia das celulas vizi- nhas (0/1)": 

PRINT 

330 INPUT "I - 2 ";BZ(0) 

340 INPUT "I - 1 ";BZ(D 
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350 INPUT "I + 1 M ;BZ<2) 

360 INPUT "1+2 ";8Z(3) 

380 ' VERIFICR E C0RRIGE RS INFLUENCIAS 

400 FOR 11=0 TO 3 

410 IFBZ(IZ) THEN BZ(IZ)=1 

420 NEXT IZ 

430 SCREEN 3 

450 ' INICIfi fl EV0LUCR0 0RS CELULRS 

470 FOR JZ = TO 47 

480 EZ = JZ HOD 2: ' INOICE DR GFRRCR0 ANTERIOR 

490 FZ = (JZ+1) HOD 2: ' INDICE DR PROXIHR GERRCR0 

500 FOR IZ = TO 63 

510 AZ = <IZ+1> H00 63 

520 BZ = (IZ+2) NOD 63 

530 CZ=(IZ-l)r10O63:IFCZ(0THENCZ=63+ CZ 

540 DZ=( IZ-2)H0D63: IFDZ(0THENDZ=63+DZ 

550 RZ(FZ.IZ) = (HZ(EZ,AZ) t BZ(2) + RZ 

(EZ.BZ) * BZ(3) + RZ(EZ,CZ) I BZ(1) + A 

Z(EZ,0Z) t 8Z<0)> HOD 15 

560 PSET (IZt4,JZt4),RZ(FZ,IZ) 

570 NEXT IZ 

580 NEXT JZ 

590 BEEP 

600 BS=INKEYS: IF BS = "" THEN GOTO 600 

610 GOTO 170 
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O sistema de 
gravacao 
cassete no 
MSX 



ANDRE L. R DE FREITAS 



Todos os usu&rios de micros padrao 
MSX yl estao familiarizados com o seu 
sistema de gravacao. Estes micros se utili- 
zam de um processo de gravacao chama- 
do FSK, dp ingles Frequency Shift 
Keying, ou seja, chaveamento de 
freqiicncia. Aquele som que ouvimos 
quando acionamos o gravador com uma 
fita cassete contendo um programa e uma 
seqiiencia de pulsus em freqiiencias dife- 
rentes correspondentes a bits zeros e uns. 
Estas freqiiencias sao enlre 1.200 hertz e 
4.800 hertz, dependendo da velocidade de 
gravacao. Fodem ser utilizadas outras 
freqiiencias e, de certa forma, isto 6 facil 
de se conseguir, alterando algumas varia"- 
veis do sistema MSX. Mas nao € aconse- 
lhivel, pois os circuitos de audio do MSX 
possuem filtros que climinam freqiiencias 
superiores, o que reduz a confiabilidade 
da gravacao. 

O que a maioria dos usuarios nao sabe 
6 o que esti por tra"s de uma simples ins- 
trugao SAVE e como Lsto 6 processado 
pelo micro a nfvel de maquina. Pretendo, 
neste artigo, dar uma pequena visao do 
que se esconde por trfs de uma instrucao 
BASIC de operagao cassete. 

Ao se sal var ou carregar um programa 
em cassete, o seu micro se utiliza de vi- 
rias rutin as contidas nos primeiros 16 
Kbytes de ROM, que vamos chamar de 
BIOS. Ali se encontram todas as rotinas 
basicas de operacao do MSX, desde o 
controle do teclado, video, som, ate" mcs- 
mo a operacao em cassete. 



REM LISTflKH i 
110 REM SISTEMA PE GRRVRCflO CASSETE 

NO MSX 
115 REM REV1STA CPU - MA10 1988 
120 REM ANDRE LUIZ FRANCO OE FREITAS 
130 PATACD r EA,00,2],00,E2,7E,FE 
140 OATA 00,28,08,E5,C0,E0,00 El 
150 DATA 23 f 18,F3 7 C0 r F0,00 F C9 
160 REM CARREGA PROGRAMA ASSEMBLER NA 

MEMORIA 

170 FOR MHE000 TO &HE016 
180 REAO A!: A=vAL("&H"+AS) 
190 POKE I,fl 
200 NEXT I 

210 REM LE MENSRGEM E CARREGA NA MEMORI 
A 

220 LINE INPUT "MENSAGEM:";M1 
230 FOR 1=1 TO LEN(MS) 
240 eS=MIDS(MS,I,l) 
250 POKE 4HEIFF+I,ASC<8S) 
260 NEXT I 

270 POKE IHElFF+1,0 : REM TERMINA MENSfl 
GEM COM BYTE ZERO 
280 REM CHRMfi R0TINA EM ASSFM8LER 
290 0EFUSR=4HE000 : A=USR(0) 
300 PRINT:PRINT"MENSAGEM GRAVADA !!!" 
310 END 
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As rotinas dc cassele se dividem em 
dois tipos: gravagao e leitura. Observe a 
tabela I. Nela sao relacionadas estas reti- 
nas e dados os enderecos de entrada cor- 
respondentes. Nao vou descrever estas 
rotinas, pois sao, de certa forma, comple- 
xas, envolvendo conhecimentos de lin- 
guagem de maquina e do hardware do sis- 
tema. Nao pretendo, neste artigo, exigir 
de voces, leitores, grande conhecimento 
de assembler, mas uma pequena nocao 6 
muito util. Observe que ainda existe mais 
uma rotina que trata somente do estado 
dc operacao do gravador cassete. 

Entre com os seguintes POKEs, pelo 
BA.SIC, para testar esta rotina: 



POKE &HE000.&H3E 
POKE&HEOOl.I 
POKE &HE002.&HCD 
POKE&HE003.&HF3 
POKE &HE0U4.0 
POKE&HE005.&HC9 



Agora digite: 

DEF USR = &HEIKJO 
A = USR (0) 

Reoarou no "click" do gravador sendo 
acionado? Experimente dar POKE 
HEOOl.O e, a seguir, novamente 
A = USR(0). O gravador deve desligar 
agora. Eslcs POKEs, acima, somente car- 
regam, a partir do endereco &hE000, urn 
pequeno programs cm linguagem dc m<$- 



quina que coloca no registrador A do Z80 
um valor e chamam a rotina dc operacao 
do motor do gravador. Isto equivale as 
instrucoes BASIC: MOTOR ON e MO- 
TOR OFF. 

Nao 6 muito diffcil controlar o sistema 
de gravacao em assembler, mas deve ser 
tornado muito cuidado para nao se gravar 
ou ler informacoes nao coerentes. Uma 
simples questao de tempo, ou seja, demo- 
ra na leitura de um byte na fita, pode tirar 
todo o sentido do que o computador esti 
lendo. As rotinas do BASIC estao escri- 
tas de forma a nao permitir que coisas do 
tipo acontecam, mas vocfi tamtam pode 
fazer o mesmo sem problemas. 

Como exemplo de utilizacSo destas ro- 
tinas, dois pequenos programas sao for- 
necidos nas listagens 1 e 2. O primeiro 
deles gravara' uma mensagem na fita cas- 
sete e o segundo lera" esta mensagem de 
volta. Os programas sao em BASIC, con- 
tendo rotinas em linguagem de maquina 
em linhas DATA. As rotinas em lingua- 
gem de maquina estao descritas em as- 
sembler, respectivamente, nas listagens 3 
c 4, para aqueles que querein se aprofun- 
dar mais no assunto. Agora, digite o pro- 
grama da listagem 1, prepare o gravador 
para sal var a mensagem e rode o progra- 
ma. Este programa pediri a voce para en- 
trar uma mensagem, carregara' esta men- 
sagem na mem6ria e, ao chamar a rotina 
em linguagem de maquina, passard a men- 
sagem para fita cassete. 

Digite NEW e entre com o programa 
da listagem 2. Este programa fara" o in- 
verso do anterior, lendo a mensagem da 
fita atravds dc uma rotina cm assembler e 
a carregara' na memona. O restante do 



programa BASIC se encarregarf de im- 
primir a mensagem no vfdeo. Quando es- 
tiver digitado, volte um pouco a fita cas- 
sete para o initio do bloco que voce sal- 
vo li anteriormente e prepare-o para car- 
regar o bloco. Rode o programa e aguar- 
de a mensagem no vfdeo. Satisfeito com o 
resultado? Esta foi a mensagem que voce" 
digitou no primeiro programa e, apesar de 
ter dado um NEW, af estd ela de volta, via 
cassete. 

Como conclusao, vcmos que todos os 
comandos de gravacao do BASIC utili- 
zam estas rotinas de gravacao do BIOS, 
somente lembrando que estas sao bem 
simples, fazendo, somente, as operacoes 
mais simples, enquanto que as rotinas do 
interpretador BASIC ]i contem testes pa- 
ra vocS poder dar um BREAK na gra- 
vacao. a selecao dos dados que vao ser 
salvos, a gravacao daquele pequeno bloco, 
o "header" de identificaijao dos progra- 
mas e outras tarefas mais complexas. 

Nada disto lhe impede de usS-las, co- 
mo foi aprcsentado neste artigo, pois to- 
das as coisas simples podem, ainda, ser 
bem trabalhadas e muita coisa pode ser 
criada em cima destas rotinas. De onde 
vooSs acham que vieram os copiadores de 
programas que muitos usam? E aqueles 
joguinhos que s6 se carregam com um 
carregador especial contido ncles mes- 
mos? 

Para aqueles que vao se aventurar, 
leiam as listagens 3 e 4, tentando entender 
o que faz cada uma das rotinas e boa sorte 
nas suas experiencias. Em breve, voltare- 
mos com novas exploracoes pelo mundo 
do BIOS, descobrindo o que esta" por tras 
de outras instrucoes do BASIC. 



R€M USTflGFh 2 
1 10 REM SISTEMfl OF GRflVflCflO CASSETE 

NO USX 
120 SEM HNORE LUIZ FftftNCD OE FREITfib 
i30 OfiTH C0,E] r 00,2i,00,E2,E5,CD 
!40 DflTfl E4,00,Ei, 77,23, FE,00, 20 
150 OfiTH F5,C0,E7,00,C9 
160 REM CflRREGfl PROGRflHFl HSSEHBlFR tffi 

MEH0R1H 
170 FOR 1- SHE 100 TO &HE114 
130 RFflO flJ: flsvAirW+flS) 
190 POKE I,H 
200 NEXT I 
210 CLS : KEY OFF 
220 REh CHflrtfl ROTINA EM ASSEM8LER 
230 OEFUSR=»HE100 : A=USR(0) 
240 PRINT "MENSAGEM LI0R:":PRINT:PS1NT 
250 F=SHE200 
260 A=PFEK(E) 
270 IF A=0 THEN GOTO 310* 
280 PRINT CHRS(fl); 
290 F=E+1 
300 GOTO 260 
310 FN0 



RSSEL 



ASSEL Assistencia Eletronica Llda 

Assistencia Tecnica Autonzada 
DISMAC - TEXAS 

REVENDA AUTORIZAOA DE 
PEQAS E ACESSORIOS SHARP 



Assistencia para todas as marcas 

de calculadoras elelronicas, video 

games, maquinas de escrever 

eletronicas, micros da linha 

Apple 



Rua da Lapa, 107 - loja - Cenlio - RJ 

Tel : (021) 222-7137 e 221-2989 

Av. Minislro Edgard Romero. 81/307 - 

Maduteira' 

Tel ! (021) 390-8225 



274-8845 



Fita Impressora 
Formulario Continuo 1, 2 ou 3 
Arquivo para Diskettes 
Pastas para Listagens 
Etiquetas Adesivas 
Diskettes 5.1/4" ou 8" 
Reebobinagern em Nylon 
e Polietlleno 

• Pronta Entrega 

• Qualquer OuantidarJe 
■ Garantia de Ouahdade 



AiprimcLnto 

• MAI£f1IAIS_PAH* COMPUTADORES 

Rua Vise, de Piraja, 550/202 
274-8845 — Ipanema — Rio 
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Menus e 
tabelas na 
screen 2 



ANDRE L. F. DE FREITAS 



A maioria dos programas existenles, 
principalmente os aplicativos, utilizam al- 
gum tipo de menu para que o usuario pos- 
sa efetuar uma escolha entre as opgoes 
disponfveis, tornando, assim, o programa 
mais flexfvel. 

Existem varias formas de se apresentar 
um menu, tabela ou grdfico, sendo o mais 
bem elaborado e de melhor resultado vi- 
sual aquele no qual o menu ou tabela, ou o 
que desejamos apresentar, se encontra no 
interior de uma janela, a qual possui cor 
diferente do restante da tela. 

I mime r as sao as possibilidades para as 
janclas e as instrucoes utilizadas para seu 
processamento, mesmo em Basic, sao 
poucas e de fdcil compreensao. 

A principal instrucao que utilizaremos 
€ LINE com sua op$ao BF. Sua funcao 6 
tracar uma linha, no modo grdfico, com 
base nas coordenadas fornecidas pelo 
usuario. Se a opcao BF for fornecida, 
sera tragado um retangulo, scndo que as 
coordenadas fornecidas correspondem 
aos extremos da diagonal do retangulo a 
ser desenhado. O retangulo tambem serd 
preenchido com a cor especificada. 

LINE s6 pode ser utilizado na tela de 
alta resolucao, portanto, outra instrucao, 
a SCREEN 2, serd utilizada para colocar 
o micro no modo de alta resolucao. 

Digite o programa abaixo, rodando-o 
a seguir. 



10 SCREEN 2:CLS 
20LINE(20,20M100,100), 15,BF 
S30 GOTO 30 



Na tela foi dcscnhada uma janela que 
possui cor diferente da cor dc fundo da 
tela. 

A linha 30 se faz ncccssdria para evitar 
o retomo do micro ao modo de texto. 

Temos agora, ao que parecc, um pro- 
blema: se o micro estd em modo grdfico, 
como colocaremos texto na tela? 

Todas as telas do MSX podem ser tra- 
balhadas como arquivos para escrita. Por- 
tanto, podemos utilizar a instrugao OPEN 
do Basic para ter acesso a escrita em uma 
pagina griifica. Esta instrucao associa um 
niimero, entre e 15, a um arquivo, no 
nosso caso a pagina grdfica (GRP:), sendo 
este niimero associado a instrucao 
PRINT, a qual se encarregard de escrever 
na tela grdfica. 

Para posicionarmos o texto, usamos a 
instrucao PSET, jd que LOCATE nao 
servird por atuar somente nas telas dc 
texto. PSET ira imprimir um ponto na te- 
la e, ap6s esta instrucao, a posicao de im- 
pressao corrente no vfdeo 6 a logo a se- 
guir as coordenadas de PSET. Se plotar- 
mos um ponto com a cor de fundo da ja- 
nela, este nao serd visivel e ficaremos com 
as coordenadas dc impressao de texto po- 
sictonadas no local que desejamos. 

Ap6s esta instrugao, podemos usar o 
PRINT # para escrever no nosso "ar- 
quivo", ou seja, o vfdeo graTico. 

Inlclua as linhas abaixo no programa 
anterior e rode-o. 

5 COLOR 1,4,4 

15 OPEN "GRP:" FOR OUTPUT AS 
# 1 

25 PSET (30,30), 15 

26 PRINT # I, "TEXTO" 



Observe a presence de texto denlro da 
janela. Note que com poucas linhas de 
programa podemos criar uma janela e es- 
crever texto nela, mesmo em alta reso- 
lucao. 

O programa fornecido na listagem I € 
um exemplo de menu, onde sao apresen- 
tadas varias op$6es, cabendo ao usuario a 
escolha de uma delas. 

Fazendo uma leitura detalhada do pro- 
grama, vamos observar as coordenadas 
das instrucoes LINE e PSET. Na lista- 
gem, estas coordenadas estao sob a forma 
de um niimero multiplicado por 8. Foram 
apresentadas desle modo para facilitar a 
ide"ia da tela com grdficos e texto simultS- 
neamente. A tela grdfica possui resolucao 
dc 256x2192 pontos, enquanto a de texto, 
no modo SCREEN 1, possui resolucao de 
32x24 caracteres. Note que 32x8=256 e 
24x8=192. Pense na tela grdfica como 
uma tela dc texto de 32x24 caracteres. E, 
sempre que quiser converter as coordena- 
das dos caracteres, multiplique-as por oi- 
to, para utilizd-las nas instrucoes grdficas. 

Observe tambem a subrotina que cria 
as janclas. A rotina foi mclhorada com o 
acrcscimo de instrucoes para criar uma 
"moldura" e um pequcno efeito de som- 
bra nas janelas. 

Leia atentamente o programa e obser- 
ve o que pode ser feilo com janelas, apro- 
veitando as iddias aqui apressentadas em 
seus pr6prios programas. 

Nos pr6ximos niimeros iremos publi- 
car um programa em m6dulos que ofere- 
cerd vdrios recursos como calculadora, 
agenda tcleforlica, iracador de grdficos, 
etc. 

25 



170 SCREEN 2: COLOR 15,4,4: CLS 

180 Xl=8:Yl-7:X2=24:Y2=lA:CH=l:CJ=10:G0 

SUB 770 

190 X=--14:Y=8:CC=l:MS="HENinG0SUB 900 

200 X=ll:Y=10:HI="l - TABElfi": GOSUB 900 

210 X"1l!Y«12JMS="2 - GRflFlCO":GOSUB900 

220 X=l 1 :Y=14=HS="3 - JANELAS":G0SU8900 

230 X=4:Y=l:CC=15:CJ=4:MS="Exe*plos de 

utihzacao de": GOSUB 900 

240 X=4:Y=2:CC=15:MJ="janelas e* progra 

IMS. "8 GOSUB 900 

250 X=4:Y=20:CC=15:HS="Por Andre Freit 

as - 1983": GOSUB 900: CC=1 

260 A$=INKFYS:IF HS="" THEN 260 

270 fl=VHL(fl$>:lF A<1 OR fl>3 THEN 8EEP:G 

0T0 260 

280 ON fl GOSUB 300,460,650 

290 GOTO 170 

310 REM OPCfiO 1 - TflBELfl 

330 CLS 

340 X1=2:Y1-6:X2=30:Y2=18:CJ=3:CF=1 :GOS 

U8 770 

350 X=1 3 s Y--7S HS=" Tfl»Etfe .29SH 900 

360 X=4:Y=9:MS=" 

-": GOSUB 900 

370 x=4:Y=tO:rt$="! rtes I Vendas ! Valor 

!": GOSUB 900 
380 X=4:Y^1 1 :MS=" 

-": GOSUB 900 

390 x=4:Y^12:MS=" Jan 100 500,0 

0": GOSUB 900 

400 X=4:Y=-13:H$=" Fev 80 400,0 

0": GOSUB 900 

410 X-4=Y=14:HS=" Har 150 750,0 

0": GOSUB 900 

420 X=4:Y=15:M$=" flbr 190 950,0 

0": GOSU8 900 

430 X-4:Y--16:HS=" 

--": GOSUB 900 

440 FOR M TO 4000: NEXT I 

450 RETURN 

470 REH OPCflO 2 - GRflFICO 

490 CLS 

500 Xl=2:Yl=2:X2=30:Y2=22:CJ=14:CH=l: G 

OSUB 770 

510 X=12:Y-4:H$="GRflFIC0": G0SU8 900 

520 X=4:Y=8:HS="Veiidas": GOSUB 900 

530 X=4:Y=10:HI="200 -"'• GOSUB 900 

540 X=4:Y=12:MS="150 -": GOSUB 900 

550 X=4:Y=14:HS="100 -": GOSUB 900 

560 X=4:Y=16:H$=" 50 -": GOSUB 900 

570 XM!Y=18tf«=" 

--": GOSUB 900 



580 X=4:Y=?0:h$=" Jan Fev Har fib 
r": GOSUB 900 
590 X1=?:Y1=14:X2=12:Y2=18:CJ=7:G0SU8 7 

70 

600 X1=14:Y1=1A:X2=17:Y2=18:CJ=9:G0SUB 
770 

610 Xl=19:Yi=12:X2=22:Y2=l8:O2:G0SUB 
770 

620 X1=24:Y1=10:X2=27:Y2=18:CJ=10:G0SUB 
770 
630 FOR M TO 4000: NEXT 1 
640 RETURN 

660 REH OPCfiO 3 - JANELAS 
680 CLS 

690 X^13:Y^2:CC=15:«I="JfiNELAS": GOSUB 
900 

700 X1=4:Y1=4:X2=8:Y2=22:CJ=6:G0SUB 770 
710 X1=6:Y1=6:X2=18:Y2=1C:CJ=2:G0SU8770 
720 X1=20:Y1=4:X2=30:Y2=16:CJ-^13:G0SUB 
770 

730 Xl=ll:Yl=18:X2=28:Y2=22:CJ=7:G0SUB 
770 

740 X1=13:Y1=8:X2=17:Y2=20:CJ=14:G0SUB 
770 

750 FOR 1=1 TO 4000: NEXT I 
760 RETURN 

770 REM SUBR0T1NH QUE CRIfl JANELflS 
790 REM PARflMETROS: 
800 REM XI, Yl - COORD. INICIAIS 
810 REM X2,Y2 - COORD. FINAIS 
820 REM CJ - COR DA JANELA 
830 REM CM - COR OA MOLOURA 
850 LINE (X1*8,Y1*8)-(X2*8,Y2*8),CJ,BF 
860 LINE (X1*8,Y1*8)-(X2*8,Y2*8),CN,B 
870 LINE (Xl*8+3,Yl»8-3)-(X2!8+3,YU8), 
CM,BF 

880 LINE (X2*8,Ylt8)-(X2*8+3,Y2*8-3),CH 
,BF 

890 RETURN 

920 REM SUBROTINA QUE ESCREVE 
930 REH NA PAGINA OE ALTA RESOLUCAO 
950 REM PARAMETROS: 
960 REM X,Y - COORD. MENSftGEM 
970 REM CJ - COR DE FUNDO 
980 REM CC - COR CARACTERES 
990 REM M$ - MFNSAGEM 
1010 OPEN "GRP:" FOR OUTPUT AS HI 
1020 PSET (XI8,YI8),CJ 
1030 COLOR CC 
1040 PRINT II, MJ 
1050 CLOSE 111 
1060 RETURN 
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JOGOS & HIGH SCORES 



Nesta sccao, publicaremos os high scores 
de jogos e dicas de como melhorar o scu 
desempenho e ajudii-lo a salvar todas as 
princesas, planetas e demais seres que vi- 
vem em perigo, implorando nossa ajuda. 



HIGH SCORES 




ALIEN 8 


49% 


BOULDER DASH 


55.848 


BUCK ROGERS 


310.900 


CHORO Q 


42.380 


CIRCUS CHARLIE 


1.198.400 


ELIDON 


94% 


FLIGHT DECK 


6.410 


GALAGA 


850.000 


INTERNATIONAL KARATE 999.999 


KING'S VALLEY 


5.642.600 


KNIGHT MARE 


238.020 


LAZY JONES 


149.650 


OH SHIT 


76.250 


POLAR STAR 


289.900 


PYRAMIDE WARP 


820.758 


RIVER RAID 


73.450 


ROAD FIGHTER 


998.675 


ROLERBALL 


3.120.180 


SCION 


501.100 


SOCCER 


40-0 


SUPER COBRA 


6.348.460 


SWEET ACORN 


9.990 


TIME BANDITS 


176.050 



Se voce ja" obteve um high score mais 
alto dos aqui apresentados, ou em qual- 
quer outro jogo, envie-nos sua pontuacao 
acompanhada de alguma comprovacao, 
como fotografia da tela ou descricao das 
fases percorridas, para que possamos pu- 
blics-la, juntamente com o seu nome. 

Se voce 1 6 fera, nada mais justo do que 
o seu nome constar . na secao de High 
Scores de CPU. 

Os jogos que oferecem facilidades adi- 
cionais, com tiro mtiltiplo, vidas infinitas, 
etc., s6 scran considerados na sua versao 
original. 



REM 

1 RFH REVISTA CPU - NfllO 1968 

2 REM flUF MONTY 

3 RFM LEITOR PARA MIL VIDflS 

1 CIS:KEY0FF:C0L0R10, i , 1 :SCREEN2 
20 0PEN"GRP:"F0R0UTPUTASttl 
30 F0RX=1T02:PSET(29+1+X,106),P0INTSTEP 
(0,0):PRINT«l,+CHRS(34)"RUFyiFDERSEHEN 
M0NTY"+CHRS(34):NEXTX 

40 C0L0R11:F0RV=1T02:PSFT(50+1+V,140),1 
:PRIMT#l f "l -> IMUNIDAOE TOTAL. ":MEXTV 

41 COL0Rll:FORE=1TO2:PSET(50+l+E,160),P 
0INTSTEP(0,0):PRINTI1,"2 -) VIDflS INFIN 
ITflS.":NEXTF 

42 COLOR11:FORU-1T02:PSET(50+1+U,180),P 
0INTSTEP(0 F 0):PRINTIt! r "3 -) NORMAL. ":NE 
XTUrCLOSEM 

50 AMNPUTS(l) 

60 IF flS="l"THEN100 

70 IF AJ="2"THENI30 

80 IF AI="3"THEN150 

90 GOTO 50 

100 BL0AD"M0NTY1 ,, ,R:BL0AD ,, M0NTY2 M ,R:BL0 

flO"NONTY3",R 

110 BL0AD"M0NTY4",R:BL0A0"M0NTY5",R 

1 20 BL0A0"M0NTY6":DEFUSR=4H8700:P0KF&Hfl 

C60,240:POKE&H9808,0:POKE&HA970,240:A=U 

1(0 

1 30 BLOAD-'MONTYl " ,R :BL0AD"M0NTY2" , R :BL0 

fl0"M0NTY3",R:BL0AD"M0NTY4",R 

140 Bl.0AD"M0NTY5",R:BL0AD"M0NTY6":DEFUS 

R=4H8700:P0KE4HA970,240:A=0SR(1) 

150 BL0flD"M0NTYl",R:BL0AD"M0NTY2",R:BL0 

fl0"M0NTY3",R:BL0A0"M0NTY4",R 

160 BL0AP"M0NTY5 U ,R;BL0AD"M0NTY6 ,, ,R 
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REM 

1 RFri ZANfiC 

2 RFri LFITOR PflRR VIOAS INFINITIES 
10 CLS sKEYOFF : COLOR 10,1 ,1 :SCREEN2 
20 OPFN"GRP:"FOROUTPUTflS«l 

30 F0RX=lT02:PSET(50mX,lM),P0INTSTEP 
(200,5) :PRIKi»l,+CHR$(34) , 7flNflC ,, +CHRS(3 
4):NEXTX 

41 C0L0R1 l:FORV=lT02:PSET(50+l+V,i60),P 
0INTSTEP(O F O):PRINTRl f "i -> VIDRS INFIN 
ITRS.":NEXTV 

42 C0L0Rll:FORU--lT02:PSFT(50+l+U,180),P 
0INTSTEP(0,0):PRINT»1,"2 -> NORMAL. ":NE 
XTU:CL0SE«1 

50 flS=INPUT$(l) 

60 IF fl$=""i"THEN100 

70 IF flS="2" THEN 120 

90 GOTO 50 

100 BLOflD'XRS : " : P0KE&H9654 f 

110 0EFUS8 =&HDOOO : fl=USR ( ) 

120 BLOflO M CflS:",R 

130 BLOflO"CflS!".R 



REM 

1 RFri PROFANATION 

2 REM LEI TOR PflRfl MIL VIOflS 

10 CLS:KFY0FF:C0L0Ri0,l,l:SCREEN2 

20 OPENTjRPi'TORQUTPUTflSttl 

30 F0RX=1 T02 : PS£T ( 50+1 +X , 1 06) , POI NTSTEP 

(200,5):PRINTttl,+CHR$(34i"PR0FflNflTI0N"+ 

CHRJ(34):NFXTX 

41 C0L0Rll:F0RV=lT02:PSET(50+l+V r 140),P 
QiNTSTEP(0,0):PRINTiti,"l -) VIOflS INFIN 
ITfiS.":NEXTV 

42 COLOR11:FORU=1T02:PSFT(50+1+U,180),P 
0INTSTEP(0,0):PRINT»1,"2 -) NORMAL. ":NE 
XTU.-CL0SEK1 

50 flS=INPUT$(l) 

60 IF AS-'TTHENIOO 

70 IF fl$="2"THEN150 

90 GOTO 50 

100 BL0flD"CfiS:",R:8L0AD"CAS:",R:BL0AD"C 

flS:":P0KEMC084,240 

110 BL0fl0"CAS:",R:BL0A0"CAS:",R:BL0A0"C 

AS:",R:BLOflO"CAS:",R:BLOA0"CftS:".R 



REM 

1 RFrt GRLAGA 

2 RFri LFITOR PflRfl MIL VIOflS 

10 CLS:KEY0FF:C0L0R10,1 ,1 :SCREEN2 

20 OPFN"GRP:"FOR0UTPUTflSKl 

30 F0RX=lT02:PSET(5O*HX,106),P0INT3TEP 

(200,5):PRINT»l,+CHRI(34i"GflLAGA"+CHRS( 

34):NEXTX 

41 C0L0R11:F0RV=1T02:PSET(50+1+V,160),P 
OINTSTEP(0,0):PRINTM,"i -) VIOflS INFIN 
ITflS.":NEXTV 

42 COLORli:F0Rli-lT02:PSET(50+l+U,18O),P 
0INTSTEP(0,0):PRINTttl,"2 -> NORMAL. ":NE 
XTU:CL0SE«1 

50 AS=INPUTS(1) 

60 IF Ai="l"THEN100 

70 IF AS="2" THEN 150 

90 GOTO 50 

100 8l.0fl0"CflS:" f R 

110 BLORDTAS:" 

120 POKE &H9 152,0 

1 30 DEFUSR=PEEK (MFCCO ) *256+PEEK (&HFCBF 

) 

140 A=USR(0> 

150 BLOAD"CflS: ,, ,R:BLORD"CAS: , ',R 



REM 

1 RFM BOUNDER 

2 RFri LFITOR PflRfl MIL VIOflS 

1 CLS : KEYOFF : COLOR 10,1,1: SCREEN2 

20 0PFN"GRP:"F0R0UTPUTASK1 

30 F0RX=1T02:PSET(50+1+X,106),P0INTSTEP 

(200,5):PRINT«1,+CHR5(34)"B0UNDER"+CHRJ 

(34):NEXTX 

41 COLOR11:FORV=1T02:PSET(50+1+V,160),P 
OINTSTEP(0,0):PRINT3i,"i -> VIOflS INFIN 
ITAS.":NFXTV 

42 C0L0Rll:F0RlHT02:?SFT(50+i+U,130),? 
0INTSTEP(0,0):PRINTttl,"2 -> NORMAL. ":NE 
XTU:CL0SE«1 

50 flS--INPUTS(l) 

60 IF RS-T'THENIOO 

70 IF AS--"2"THEN110 

90 GOTO 50 

1 00 BLORD"CAS : " , R :BLORD"CAS: " :P0KE&H8C8 

7,200:OEFUSR=4H8700:fl=USR() 

110 BLORO"CRS: ,, ,R:BLOflD"CRS:",R:BLOAD"C 

AS:",R:BL0AD"CAS: ,, ,R:8LOAO"CAS:".R 
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LIVROS 



CURSO DE MUSICA - Volume 1 

Editora Aleph - 144 Paginas - 

14x21 cm 

Barbieri, I'ia/./i 

Nao tern sentido tentar se aprender 
teoria musical sem sc tocar urn instru- 
mento. A maioria das pcssoas, porem, por 
nao disporem de tempo e paciencia sufi- 
cientes para adquirir uma razoavelhabili- 
dade num instrumento qualquer, margina- 
lizam-se do maravilhoso mundo da musi- 
ca. Nestc caso limilam-se, se muito, ao 
papel de passivos ouvintes. 

Com o advento do MSX, porem, este 
ouvintes passivos passam a dispor de um 
eficientissimo instrumento musical de 3 
vozes que vai lhes permitir aprender mii- 
sica interagindo (com um instrumento 
musical traditional) sem que haja neccssi- 
dadc de um adestramento psicomotor. 

O objetivo principal deste livro nao 6 o 
ensino de programac,ao, apesar disso aca- 
bar ocorrendo de forma suave e didatica. 
mas sim o aprendizado, por parte do lei- 
tor, da teoria musical em si, transforman- 
do-o num ouvinte ativo e em certos casos, 
ate" num compositor de talento! 



100 D1CAS PARA MSX 
TECNICAS E TRUQUES DE 

PROGRAMACAO 

Editora Aleph - 191 Paginas - 

14x21 cm 

Renato da Silva Oliveira 

Visando facilitar a programacao em 
Basic, poupando tempo c esforco. o livro 
apresenta listagens de programas que po- 
derao ser utili/.adas pelo programador em 
sub-rotinas. 

Dividido em 7 capftulos (teclado, vi- 
deo, som, cassete, impressora. drive e 
processamento), torna-se indispensavel 
para quern descja aprovcitar todos os re- 
cursos disponiveis do MSX, explorando 
assunlos que nao sc encontram nos ma- 
nuals que acompanham o equipamento. 



DRIVES LEOPARD DE 3 1/2" 

NOVOS HORIZONTES 

PARA O SEU MSX 

Editora Aleph - 120 Paginas 

13x18 cm 
Carvalho Jr., Oliveira, Pjazzi 

Destinado aos usuarios de drives de 3 
1/2", ou de qualquer drive de 5 1/4", ou 
possuidores de acionador Leopard modelo 
DT 300 ou DT 350, da Technoahead, o 
livro forncce, de mancira objetiva e clara, 
informacpes neccssarias para operagao 
com o sistema opcracional MSX DOS e 
Disk Basic. 

Todas as instrucoes do MSX DOS e do 
Disk Basic sao comenladas, sendo forne- 
cidos exemplos e comentados os possfveis 
casos de erro que poderao ocorrcr. 

Uma grandc enfase 6 dada a progra- 
ma;ao com os comandos especi'ficos do 
Disk Basic, e do MSXDOS, dando total 
suportc ao programador. 







Solicite as programas constantes desta revista 
gravadas em disco de 5 1/4", nao perdendo 
tempo com a digitacao. 

Para receber o disco em sua residencia, envie 
um cheque no valor de Cz$ 1.000,00, nominal a 
Rguia Inf ormatica. 
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Jawbrake 



CESAR MATTOS 



Este jogo foi baseado no velho Pac 
Man. 

Para fazer pontos, voce devera" comer 
todas as vitaminas espalhadas pela tela, 
tomando cuidado com os guardiaes que 
tentam impedir, a todo o custo, o seu ob- 
jetivo. 

Preste atencao na parte central da tela 
e tente apanhar as super vitaminas que de 
vez em quando aparecem. 

Para jogar, use as solas. 



20 T I HE=0 : KEYOFF s CLS : CLEAR 1 000 sSCREENI , 
2 : COLOR 1 5, 1 F 1 : CLS : ONSPR I TEG0SUB920 : OPEN 

"GRP:"FORQUTPUTflSttl:STRIG(0>GN 

30 H$=" ,, :8$="":RES70RE1100:F0RX=17016:R 

EflQDS:fi$=fiS+CHRS(vflL("4B ,, +LEF7$(D$,8))) 

40 BS=BI+CKRS(VflL("M"+RI6HTS(DS,8)» 

50 NEXTX:SPRITEJ(0)-fl$+8$ 

60 AS="":BS="":REST0RE1270:F0RX=1T01A:R 

EflOOS:flS=flS*CHRS(VflL("4B"+0$)):NEXTX:SP 

RlTF$(l)=ftS 

70 'VfiRIAVEIS 

80 TT=0:TP--0:CH=3 

90 H=154:N=3«:'COORDENR0AS 

100 'flPRESENTRCflO 

110 G0SU8148Q 

120 SCREEN2 

130 PRESET(84,76i:C0L0R12:PSl^ISl,"RRCfl 

0Ifl30FT":PRESET(?6,?0):C0L0R7:PRINTI»;, 

"apresenta" 

135 PRESF7(85,77):C0L0R12:PRINT#l,"iiRCF 

Dlfi SGF7":PRF.SE7(97,9'!):C0L0R7:PRINT»1, 

"apresenta" 

138 LINE(78,70)-(135,70>:llN£(?8,)05)-( 
185,105) :LINE(78,70)-(78,105):lINE(185, 
?0)-(185,105) 

139 LI.VE(78,71)-(185,71):LlNE(78,106)-{ 
185,i06):LINE(79,71)-(79,106):LINE()86, 
71)-(186,106) 

140 FOR V=l T02: F0RX 1 =60T0 1 80 s PUTSPR I TE4 , 
(X1,50):NEXTX1 

150 FORX=7070106:PU7SPRI7E4,(180,X>,12, 

0:NEXTX 

160 F0RX1 =1 50T080STEP-1 :PUTS?RITE4, (XI , 

160>,12,0:NEXTX1 

170 F0RX=1067060S7EP-1:PU7SPRI7E4,(65,X 

).12.0:NEXTX 



180 NEXTV 

190 PU7SPRITE4,(-30,255),12,0:[FPL8Y(0) 

THENG0T0190 

200 SCREEN3:C0L0R,l:CLS 

210LINE(15,0H235,230),2,8 

220 F0RGG=lT02:Y=O:Y"l=0:a=RNO(l)*13+2:l 

FH=7THENfi=6 

230 FORX=1TQ10 

240 CQL0Rfl:YMl+6:Y=Y+14:PSFT(6+Y+Yl ,Y 

l+7Q),l:PRIN7»l,HIDS("JawbreaKe",X,l) 

250 SGUND7,56:S0UND8,15:F0RK^Tp20STEP4 

:SQUN00,Kt5:NEXTK 

260PU7SPRITE4,(6+Y+Y1,100),R,0 

270 NEXTX:fl=RN0<l >*13+2: IFR^7THEWfl=6 

280 Y=Y1+Y+19:F0RX=10T01STEP-1 

290 Y=Y-20:PSET(6+Y,70),l:C0L0Rfl:PRINT» 

l,HIDS("Jawbreake",X,1) 

300 PUTSPRI7E4,(6+Y,100),fl,0 

310 F0RK=20T01STEP-4:SOUND0,Kt5:NEXTK:N 

EXTX 

320 0NS7RIGGQSUB1470 

330 NEXTGG 

340 G0SUB1480:UIDTH30:SCRE£rtl :C0L0R1 ,7, 

2:L0CflTE4,5:PRINTSTRING$(22,223):L0CflTE 

6,6:PRIN7"J fl U 8 R E fl K E R":L0CflTE4, 

7:PRINTSTRINGS(22,220):PUTSPRITE4,(122, 

80) ,13,0 

350 PU7SPRI7E4,(122,80),6,0 

360 LOCATE! ,22:PRIKT"Pres. darra de esp 

ao p/jogar";:F0RX=lT02000:NEX7X:C0L0R, 

,l:GGT0200 

370 'CENRRI0 

380 C0LnS15,l:SCRE£N2:SrRITE0N:STRlG(0) 

OFF 

390 C0LGR7:PRESETi40,l):PRlNT»l,"jflUBRE 

AKER ,, :COLOR12:PRESET(150 f 1):PRINTil,STR 

ING$(Cr!,CHRS(249)>:C0L0R14:PRESE7(60,17 

5):PRINTI1, "ARCADIA S0F7 1 986 " : COLOR 1 5 

395 C0L0R7:PRESE7(41,l):PRINi#l,"JflUBRE 

flKER":C0L0R12:PRESE7(150,l):PRINTIIl f S7R 

ING$(CH,CHRS(249)):C0L0R14:PRESFT(60,17 

6):PRINT»1, "ARCADIA S0F7 1986": COLOR 15 

400 F0RX=1703:LlNE(30-X,12-X)-(220-X,17 

2-X),12,B:NEXTX 

410 LINE(50,30)-(200,30),4 

420 LINE(50,50)-(200,50),4 

430 LINE(50,70)-(200,70),4:LINF(50,90)- 

(200,90), 4:LINE(50,110)-(200,110),4:LIN 
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t(5Q,i30K2QQ,;oO),4:Ji'<L(?0,::0 ! - Z,, 

,150), 4 

t40 "QRX--1 'dTOI 60STEP20:PRESF7 i 50, X) : PR I 

NTS!, STRINGS;!?, CHR$ii96)):NEX7X 

445 DKINTF8VfiL=l 500603061450 

450 'COKRNOO 00 JGGO 

460 l&IERVfllON 

480 FORX=30T0203STF?8:X!=X:X2-211-X+2C 
490 IFVMTHEMG0SUB840 
500 IFU<4MN6QSUB850 

510 [FU)8THFNJ 33U8860 

520 IFV)3TKENi,OSU8S70 

530 IFU<10THE«G0SU88S0 

540 iFV<8TH£NG0SU3890 

550 iFV)5ThENGGSU8900 

560 !FV<6THENGQSUB91ft 

570 G0SIJ3720:NEX7X 

580 F0RX=30T0203ST£?8:X2=X:XT=21 1 -X+ZO 

590 IFV<6TnENGQSU88<sO 

600 IFW<4THENG0SUB850 

610 IFH)8 THEN G0SU8 840 

620 irV)3TH£ 1 \GuSUS870 

630 IFIKI0THENG0SU88SG 

640 lFV<8Th£iVGOSU8890 

650 IFV<5THENG0SU8900 
660 IFV<6THENG03U8?10 

670 G0SU8720 

680 NEXTX 

690 fifi=RND(l}*4 

700 FORX^2TQiO:?U7S?RI7EX, (-20,255) ,9,1 

:NEXTX:IFfifi<37nENG070450 

710 G0T0580 

720 *«0V. JRU 

730 1 NTERVFiLON : fl=ST i C.<( ) : I FR=7fi«36T 

HENN=N-8 

740 IFN=124Hffi?!=74HN0 r _rtG-iT:iE?(5JTG780 

750 IFR=3fiN0N<2037hEM=N+8 

760 I Ffi=1 HNDPOI NT ( rt+7 , ?1-4 ) < > 4HNi>?0 INK N 

,«-4K>4RNDM>i7THENf»=ft-20 

770 IFR=5fl«DP0INT{a+7,i1+16)O4flrti)PGINT( 

N,H+UK>4fiNDft<15OTHOiK=&+20 

780 PlTSP8lTcl,(S,fl),9,l 

790 IFN=1 24flNDH=?4fflfDFlfiS= i Tri£!>PLHY"v i 3 

L32flflCD0C8H":7T=TTtl00:PT=PT+100:G0SUBi 

460 

300 LFPQIHT{H+3,M+8H50RP0M(N+3,H+8) 

=7THEftTP=TP+i:PT=?T*IO:PSES£T(N,f(+4):CO 

L0Rl:PRINTtH,LNRS(219;:C0L0R15:PLfiY" 1 v'13 

30hl000G4Cr = 77=77+10: iF7?=15!7HENG0SU3 

"i 480 :60SU3 1050 

810 IFTT>-50O0THENTT=0:CH=CH+l!PUlY"V15 

T255G4L8DL48L8GL80L4CL8RL1 GL32" :COLGR? : 

?RESF7(40,l):PRMHl,"JHy8REHKER' ! :CGL0R 

12:PRESET<150,i):pRINTtti,STRiNGS(CH,CHR 

S(249)):CGl0R15 

820 RETURN 

830 'IMPRESS. DOS lN!«I30S 



840 PUTSPRITE3,(X2,30),10,0:REnjR(y 

850 PUTSPR ITE4 r ( XI , 1 0) , 1 2 * 0: RETl^ ■> 

860 PUTSPRITE5,(X1,50),13,0:RETURN 

370 PUTSPRITE6,(X2,70),8,0:RFTURh' 

880 PUTSPRITE7,(X1,90),2,0:RETURN 

890 PUTSPRITE8, (X2, 1 10) r 7 F 0:RETURN 

900 PU7S?RITE9,(X1,I30),9,0:RETURN 

910 PGTS?RIT£iO,{X2,150),14,0:RETURN 

920 IFPLRY(0)7-EN920 

930 S0UND7,56:SPRITEGFF:SGUN06,15:SGUND 

1 ,0:FG8Y=50T0200ST£P5:S0UND0,YtRN0(l )*2 

5:PUTSPRITEl,(N,fl),RND(l)X7,l:NEX7Y:SDu 

N03,0 

940 CH=Cn-l : IFCH=0TnENG07G990 

95C C0LGR1:?RESET{40,1):PRINTS' , STRINGS 

<22,CHR$(2i9)) 

960 N=124:H=74:G0SU3720 

970 C0LGR7;?RE3F7(40,l):PRIi\Tiil,"JHy3R£ 

HKER":C0L0R12:PRESET(150,li:PRINTti;,STR 

INGS(CH,CHRS(249)):C0L0R15 

980 r 0R3=37010:PU7SPRi7ES,(-20,255),i,0 

:NEXTS:SPRITEGN:fi£7URN 

990 "RQT.FlNfiLlZflCRQ 

1000 PRESET(32,7S):C0L0Rl:pRiNTSi,STRI i S 
GI(12,CHRS(219) ) :C0L0R1 :PRESET(80,96) :P 
RINTttl,3TRINGS(12,CHR$(219)):PRESET;84, 
78) :C0L0R1 0:PS INTtf 1 , "FIM DE JOGO":PRESE 

T(80,100):PRI«T*l f USING"##*#".PTj:PRINT 
#!,"?ONTOS" 

1 01 PLfiY"V15Ll 6G5CC043RGFFQCCCCC", "VI 3 

Li 60 4CCDEFGAB 05CCCCC " , "VI 403L4CCCL3 6C" 

•020 FORY=1TG10:PUTSPRITEY,(0,0),1,0:nE 

XTY:FGRY=iT01000:NEXTY:CL0SE 

1030 IFPLflY{0)THEN103Q 

1040 RUN 

1050 '00. TP=152 

1 060 I NTERVflLQFF i S?R ! 7E0FF : FOR Y-2T01 : P 

UTSPRiTEY, (-20,255), 9, 1:NEXTY 

1070 PRESFT(74,77):C0L0R12:PRINT#1,?T;" 

PANTOS" :F0RX=1 T0200:NEXTX:C0L0R1 :PRESET 

(74,77) :PRIHT»1,STRIN6S(]5,CHRS(219)):C 

GL0RI5 

1080 !P=0:N--124:M=74:?UTS?RITEl,(N,rt),9 

r' 

1090 F0RY^187Q160S7£P20:PR£SFT(50,Y):PR 

INTItl,3TRING.l(19,CHR$(196;):NEXTY:3PRI7 

EONMNTERl/flLO&CRETURN 

1100 OfiTfl 0000000000000000 

1110 DATA OOOiillllllilOOO 

1120 ORTfi 0011111111111100 

1130 DRTR 0111111111111110 

1140 DH7H 1110001111000111 

1150 drth nioiomioioir 

1160 OflTfi 11 10001 ]] 100011. 
1170 DRTH 1110001111000111 
1130 DRTR llllllillliillll 
1190 DfiTH llllllillliillll 
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1200 OfiTfl 


iriMllllUHHl 


1210 DATA 


1111100000011111 


1220 DflTfi 


111 1100000011111 


1230 data 


lllllllillllUll 


1240 DflTfi 0101010101010101 


1250 ORTH 


1010101010101010 


1260 




1270 DflTfi 


1 - - 1 1 1 7 1 
1 i ; i 1 1 M 


1280 DflTfi 


lillllll 


1290 DflTfi 10011001 


1300 DflTfi 


10111011 


1310 DflTfi 


10011001 


1320 OflTfl 


11111111 


1330 QfiTn 


10000001 


1340 DflTfi 


11000011 


1350 DflTfi 


11100111 


1360 DflTfi 


muni 


1370 DflTfi 


ill 1 ! i 1 1 


1380 DflTfi 01010100 


i 390 JHlR 


D1010100 



1400 OflTfl 00000000 

1410 QfiTfi 00000000 

1420 DflTfi 00000000 

1430 BEEP :G0T01 430 

1440 DflTfi 00000000 

1450 C0L0R7:PRESF7£ 1 22,76) :PRINTttl,CHRS 

(1 )CKaS(66);Fs_HG=) :0MN7ERVfiL=300GQSUBl 

460:C0l0R15:RETURN 

1460 C0LGR1 :PRrSETU22,7S) -PRINTS1 ,CHRS 

(21?):FLflG=0:0NIN7ERVnL=i500GQSUB1450:R 

ETURN 

1470 COLOR,, l:PLHY"L32Cl6DEr5H3G5C":RET 

URN370 

1480 SOUND?, 56 :PLfiY"7250"," 7250" :PLAY"D 

1 H5000L4" , "S?R400L4" 

• 490 PLRY"04R \" , "03C8. EG. 64. 64. " 

1 500 PLfiY"04C8 . E8 . G4 . G4. " , "R I " 

■510 PLriY"04F4.E4.D4.","03F4.E4.D4." 

1520 PJVy"04G4.G4.E4.","03r:4.E4.C4" 

1530 RETURN 



ASSINE CPU 



Para fazer a assirtatura da revista CPU, preencha o cupon abaixo, 
em letra de forma, remetendo-o a Aguia fnformatica Ltda. 

A cobranca sera efetuada atraves do Banco Bamerindus, nao sendo 
necessario o envio de dinheiro. 

O vaior da assinatura, de seis meses, e de Cz$ 1.100,00. 



Dados para f aturamento: 

nome: 

endereco: 

bairro: 

cidade: 



estado: 



cep: 
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